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ABSTRACT 


This thesis extends the multi-computer real-time 
executive, MCORTEX. The multiple cluster system RTC* (Real 
Time Cluster Star), consisting of clusters of single board 
computers (INTEL iSBC 86/12A), which are connected via an 
Ethernet Local Area Network, serves as a hardware basis for 
the implementation of extended MCORTEX. 

The extension upgrades MCORTEX to system-wide 
synchronization and general data communication between any 
processes in the system. An intercluster shared memory model 
is developed, that partially replicates intracluster shared 
memory, such that shared data replication is minimized and 
the system's processing speed is maximized. 

This implementation, by transmitting produced shared 
data to all consuming clusters as soon as possible after 
production, guarantees that only cluster local hits occur in 
the system. Shared memory space is used efficiently by 
transmitting Shared ies to consuming clusters only, and by 
the ability to store shared data contiguously in 


intracluster shared memory. 
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I. INTRODUCTION 


A. DISCUSSION 
l. General 

The goal of this thesis is to extend the existing 
version of the distributed multi-computer real time 
executive (E-MCORTEX) in order to provide systemwide 
interprocess data communication. 

The existing MCORTEX version was provided by David 
Brewer in December 1984 [Ref. 1], and contributes to the 
research work done by the AEGIS Modeling Group at the Naval 
Postgraduate School (NPS). 

The objective of this project group is research on 
time critical processing required by modern anti-air warfare 
(AAW) systems. The project group chose the AN/SPY-1A phased 
array radar processing unit of the AEGIS weapon system due 
to its challenging time critical processing demands. A 
further fundamental objective of the AEGIS Modeling Group is 
to use off the shelf components within the AEGIS weapons 
System as a low cost approach, and to upgrade reliability of 
the system by replacing the AN/UYK-7 central computer of the 
AN/SPY-1A system by distributed computing power. Rapid 
repair turnaround and low component replacement cost in the 
system in case of failure, and graceful degradation of the 
system are of utmost importance especially for military 
applications. 

The available lab system at NPS is made up of single 
board computers building MULTIBUS clusters which are 
connected via an Ethernet Local Area Network. 

2. Systems Architecture 

The lab system's hardware configuration shown in 
Figure l.l consists of two clusters with up to four Intel 
iSBC 86/12A single board computers (SBC) in a cluster at the 


present time. A MULTIBUS serves as the interconnection 
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Figure 1.1 Hardware Configuration of RTC*. 
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medium for all cluster elements, i.e. besides the SBC's, a 
hard disk drive, two extra memory boards, and an interLAN 
NI3010 Ethernet Communication Controller Board (ECCB). The 
ECCB provides, via a transceiver, the cluster's connection 
to the Ethernet. 

With the MULTIBUS as an intracluster bus and the 
Ethernet as an intercluster bus the system's configuration 
looks similar to Carnegie Mellon's Cm* [Ref. 2]. Due to its 
goal to serve time critical applications in a real time 
environment the AEGIS lab system is known as Real-Time 
Cluster Star (RTC*). 

The system's software configuration shown in Figure 
1.2 consists of a MCORTEX kernel on every SBC, MCORTEX 
global data on cone extra memory board, known as Common 
Memory, and Shared Memory on the second extra memory board 
in every cluster. Besides the MCORTEX kernel, also the 
CP/M-86 operating system and DDT-86 are available in local 
RAM of every SBC, and the user area provides space for 
application programs. The CP/M Multiuser area is kept on the 
Common Memory board, while Shared Memory houses user shared 
data and some system's shared data. 

SBC l in every cluster is dedicated to a systems 
program known as the system device handler and packet 
processor (called a driver in the following). Part of 
Shared Memory is used as a data exchange buffer between any 
SBC in the cluster and the driver board, SBC 1l, for Ethernet 
transmission requests. Another part serves as data exchange 
buffer between the driver board and the ECCB for handing 
over messages which are to be transmitted and messages which 
have been received. 

The distributed MCORTEX kernels provide the 
multiprocessing capability of the system. System processes 
and user processes share the CPU of a respective SBC. David 
Brewer gives an in depth discussion of the interrelationship 


and the scheduling of processes. 
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Figure 1.2 Software Configuration of RTC*. 
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The process synchronization is accomplished using 
eventcounts and sequencers as developed by Reed and Kanodia 
[Ref. 3]. Eventcounts synchronize all processes, those 
running on the same board as well as those running on 
different boards inthe same cluster as well as those 
running on boards in different clusters. 

It 1S important to recognize that eventcounts are 
also data, even though a special kind of data. 

EE DE CET C 

A typical application situation for systems like 
RTC* is time critical gathering of data by real time sensors 
(e.g. radar), processing these data in the context of 
information gathered by other sensors, and executing 
specific algorithms in order to produce data that are 
consumed by effectors (e.g. missile launchers). 

Under the realistic assumption that sensors and 
effectors are locally distributed and that sensor-effector 
coupling or grouping must be kept flexible for the sake of 
weapon system survivability, it is obvious that the 
different processing modules cannot be kept together close 
enough in order to use shared memory in the conventional 


sense. 


B. BACKGROUND 

A series of theses starting with one by W.J Wasson, June 
1980, which defined the detailed design of MCORTEX based on 
MULTICS and the use of eventcounts [Ref. 4], developed a 
highly modular system, hardwarewise and softwarewise, using 
commercially available components, that guarantee low cost, 
availability, and reliability. D.K.Rapantzikos, March 1981, 
provided initial implementation [Ref. 5], E.R. Cox, December 
1981, refinement [Ref. 6], and S.G. Klinefelter, June 1982, 
dynamical interaction with the operating system during 
execution [Ref. 7]. 

W.R. Rowe, June 1984, put the multiuser CP/M-86 
operating system under control of MCORTEX [Ref. 8], and 
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finally D.J. Brewer, December 1984, extended MCORTEX to a 
multicluster system without shared memory, using Ethernet as 
cluster interface. 

The system's functioning was shown for the extended 


MCORTEX version up to the level of systemwide process 


synchronization using distributed eventcounts in a 
multicluster environment. Even though eventcounts are data 
also, and communicating eventcounts is shared data 


communication, this special shared data communication lacks 
the ability of user shared data distribution over the total 
system. 


This thesis tackles this important step. 


C.— STRUCTURE OE OPHESTHES!ES 
The goais of this thesis are: 

1. To extend the existing MCORTEX version, that provides 
process synchronization and Single cluster 
inter-systemprocess data communication uSing an intracluster 
shared memory, to multicluster general inter-process data 
communication in an Ethernet Local Area Network environment. 

DE To develop: an appropriate model for intercluster 
shared memory to be used in the system. 

3 To accomplish the extension without changing the 
MCORTEX kernel, but modifying PL/I-86 modules only. 

Chapter I discusses the objective of the AEGIS Modeling 
Group at the Naval Postgraduate School, gives an 
introductory system's overview, a brief development history 
of the system, and outlines the goals of this thesis. 

Chapter II discusses three different approaches studied 
in developing the concept of intercluster shared memory for 
RTC*, and the reasoning that lead to the decision for the 
chosen model. 

Chapter III presents the organization of intracluster 
shared memory, the use of the user shared data area, and the 
intracluster data flow. 
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Chapter IV provides an in depth presentation of the 
development and realization of intercluster data sharing in 
RTC*. 

Chapter V summarizes the current state of the system 


and addresses possible future enhancements. 
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II. ORGANIZATION OF INTERCLUSTER SHARED MEMORY 


mmm eee eee ee 


A. SHARED MEMORY MODELS 
In developing the concept of intercluster shared memory 


for RTC*, three different approaches were studied: 


1) no replication of intracluster shared memory, 
2) total replication of intracluster shared memory, and 


3) partial replication of intracluster shared memory. 


The logical structures of these approaches are shown in 
Figure 2.1. 
l. No Replication 

This model views the intercluster shared memory as 
the sum of individual intracluster shared memories of all 
clusters available in the system. This is very similar to 
the approach chosen for Cm”. 

Every shared data item is kept only once in 
intercluster shared memory, normally inthe intracluster 
shared memory of the home cluster of the producing process. 
Consuming processes have to go through the various bus 
hierarchies of the system in order to access the respective 
item at the time when consumption is to start. Apparently 
this is a very time consuming effort if the respective data 
item is not resident close to the consuming process. Close 
in this context refers to being located in shared memory of 
the consuming process’ home cluster. In terms of time 
efficiency for this model, the only reasonable solution for 
this situation is to put producing and consuming processes 
as close together as possible in order to increase the rate 
of cluster local hits. 

The space-time dilemma becomes obvious. In terms of 
Space, this approach is the most efficient one, because 


there exist no duplications of any data item in the whole 
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system. The intercluster shared memory space is equal to the 
sum of all intracluster shared memory spaces in the system. 

However, if we accept the fact that memory becomes 
cheaper and cheaper every year due to development of 
technologies that put more and more memory space on a chip, 
then we could afford to replicate data in different memories 
of the system in order to increase the number of cluster 
local hits, or even to ensure that only local hits happen in 
the system. This leads to the second model of intercluster 
shared memory. 

2. Total Replication 

The opposite extreme of no replication is total 
replication of all shared memory, i.e. every intracluster 
shared memory keeps all shared data items and so 
intercluster shared memory consists of as many copies of 
intracluster shared memory as there are clusters in the 
system. Due to the necessity that all intercluster shared 
memory has to fit in every intracluster shared memory, the 
available space for intercluster shared memory is equal to 
the space of the smallest intracluster shared memory of any 
cluster in the system. Therefore it must be ensured that the 
smallest intracluster shared memory is large enough to keep 
all shared data items needed in the system. 

This model makes sure that only cluster local hits 
occur in the system, and that every consuming process finds 
every data item in shared memory of its home cluster. This 
seems to be a very time efficient approach that suits the 
demand of having data as close as possible to the producer 
and the consumer as well. 

À major problem with this approach however is the 
increased overhead in maintaining and updating of shared 
data items that are never used at a certain cluster. This 
overhead especially consists of traffic on the systems buses 
and processing time of the hosts at the interfaces between 


clusters and transmission medium. This traffic overhead 
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slows down the data distribution so that it takes longer for 
data to be available at the consuming process' cluster for a 
local hit there. 

The compromise is a combination of these first two 
models, where only necessary replication of data is done. 

3. Partial Replication 

In this model every cluster maintains shared data 
only if those data are used at a specific cluster,  i.e.the 
producing and the consuming clusters only keep a copy of 
respective data items, no superfluous information is 
maintained and there is no superfluous traffic on the 
transmission medium and the system buses. The intercluster 
shared memory in this approach is equal to the union of all 
individual intracluster shared memories in the system and 
only the intersections are replicated. There can be 


different intersections between different cluster groups in 


the system. This approach is the most efficient one in 
terms of space and time. The traffic on the transmission 
medium and the system buses, andthe amount of processing 


time needed for data exchange is kept to a minimum. Also, as 
in the total replication approach, only cluster local hits 
will occur. 

The overall policy is to transmit shared data to 
all consuming clusters as soon as possible after production, 
and to transmit those data to consuming clusters only. 

This approach seems to be the most adequate one for 
a distributed real time system, as it reflects the optimal 
compromise in terms of speed ,space, and update overhead. 

Intercluster shared memory by partial replication of 
intracluster shared memories was therefore chosen for 


ate 


implementation in RTC~. 
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III. ORGANIZATION OF INTRACLUSTER SHARED MEMORY 


A. CLASSES OF SHARED DATA 

Looking closer at shared data, we realize that there are 
different classes of shared data used in the system. Some 
data is shared among processes on the same board only, some 
is shared among processes on different boards in the same 
cluster, and some is shared among processes in different 
clusters. 

It was decided to keep all shared data on special memory 
boards, even though some of the data is produced and 
consumed on the same board. To protect system's data used by 
the operating system, these data items are stored in Common 
Memory, which is beyond the reach of user data memory, 
called Shared Memory. 

All MCORTEX global data are maintained in Common Memory. 
Every cluster has one Common Memory where all MCORTEX global 
data needed in the respective cluster is kept. Brewer 
describes the logical organization of Common Memories. Due 
to the fact that eventcounts are used for intracluster and 
intercluster process synchronization, some of these 
eventcounts are replicated in more than one cluster. 

Lt Mmust be recognized that there exist system's 
eventcounts in every cluster, e.g. ERB READ and ERB WRITE. 
These are used strictly cluster internally and do not belong 
to the intersection of intercluster Common Memory. These 
system eventcount have the same name in every cluster, but 
their respective values are never distributed over the 
system. Only user eventcounts that are used in more than one 
cluster are distributed and therefore replicated in 


respective clusters. 
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B. SYSTEM SHARED DATA 
A similar situation exists in Shared Memory. There are 


three data items in Shared Memory which are used exclusively 


Within the cluster: 


1) the Ethernet Request Block, 
2) the Transmit Data Block, amd 
3) the Receive Data Block. 


These are data items shared between the driver residing 
on SBC 1 and either MCORTEX kernels on other boards or the 
ECCE. These system's data items are needed to establish 
cluster external communication. Information needed by the 
driver about outgoing and incoming messages has to be 
communicated via Shared Memory, because it is not possible 
to access local memory of any SBC from outside the board. 

As is true for system eventcounts in Common Memory, 
these three system shared data items are also used strictly 


cluster internally and do not belong to the intersection of 


intercluster Shared Memory, even though they have the same 
names in every cluster. Only user shared data, that are 
shared in more than one cluster are distributed and 


therefore replicated at respective clusters. 

As described by Brewer, the Ethernet Request Block, the 
Transmit Data Block, and the Receive Data Block reside in 
this order in the lower part of Shared Memory at addresses 
10000H, 10078H, and 10666H respectively. The User Shared 
Data Block starts at address 10C58H and goes up to 1/FFFH as 
the highest address in Shared Memory in the present 


implementation of RTC*. 


C. USER SHARED DATA 

Shared data items are basically interfaces between 
different processes. Processes communicate via these shared 
data. It is therefore important to agree on the name, size, 
and structure of shared data used by different programmers 


for different process modules. This agreement must be 
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accepted by all programmers of any system module and can be 
thought of as reached under the guidance of a lead 
programmer. 

An individual programmer can still use any: other private 
name and structure for some variable, as long as he or she 
ensures that communication with any other module is done 
using the agreed upon name and structure. 

l. Organization of Shared Data 

Shared data items are organized as circular queues 
of structures, where the actual item is a structure and the 
queue serves as buffer between producers and consumers. This 
is true for user shared data and system shared data as well. 

While system shared data items have fixed predefined 
structures and queue lengths, a user shared data item can be 
of any structure, and a user shared data queue can be of any 
length. The only restriction is that all user shared data 
queues needed at some cluster must fit together into the 
User Shared Data Block in Shared Memory of that cluster. 

The length of specific data queues is another 


important issue to be agreed upon by all programmers using 


respective shared data items. The chosen queue length 
depends on the expected average input and output rate of a 
Specific data item queue. The goal is to reduce or, if 


possible, to avoid idle waiting times at producing processes 
due to a filled up queue caused by slow consumption. 

As mentioned in Chapter II, the data communicating 
version of RTC* developed in this thesis will use the 
concept of partial replication of Shared Memory. Therefore 
we think of intercluster Shared Memory as the union of all 
intracluster shared memory blocks that contain user shared 
data. Data communication is only possible among clusters 
that actually share data (i.e. there exist an intersection 
of intracluster Shared Memories of those clusters and the 
respective shared data item is in the intersection). To put 


it another way, an intersection of intracluster Shared 
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Memories is only needed if processes in respective clusters 
need to communicate. If intracluster Shared Memories only 
keep those shared data items needed (produced or consumed) 
by some process inthe cluster, then automatically the 
minimum intersection and therefore the least duplicated use 
of memory space andthe most efficient use of time for 
maintaining the data is guaranteed. 

2. Storage of User Shared Data 

In order to further accomplish efficient use of 
memory space, the system is set up in such a way, that user 
shared data queues can be stored at any address in the User 
Shared Data Block in Shared Memory. There must, however, be 
enough space available between the starting address of the 
queue and the highest possible physical memory address 
(i.e.l7FFFH in the present implementation). 

This flexibility also allows for contiguous storage 
of all user shared data and thus the available storage space 
is most efficiently used. 

The same data item can reside under different 
addresses in different clusters. The application programmers 
do not have to worry about the addresses, they refer to a 
specific data item by its name. The lead programmer will 
take care of assigning addresses to shared data queues. When 
and how this is done will be discussed in Chapter IV. For 
now it should suffice to realize that the organization and 
Storage of user shared data in this implementation is done 
with the least duplication of data items, where each shared 


data is available in the local cluster. 


D. RELATION BETWEEN SHARED DATA 

An important relation exists between system shared data, 
eventcounts and user shared data, which is exploited by the 
driver for its data communication task. 

The system internal management of a data queue is 
controlled using an eventcount <dataname>_IN and an 


eventcount <dataname>_OUT. These eventcounts have to be 
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distributed over the same clusters as the related data item, 
in order to ensure that a consumer does not read a data item 
before it is in the queue, and a producer does not write a 
new item into an already used slot before the: old item has 
been consumed by all its consumers. The  eventcount 
«dataname» IN tells all consumers that an item is available, 
the eventcount <dataname> OUT tells the producer that a 
former used slot is available for new data. 
1. The Ethernet Request Block 
Refer to Figure 3.1 for the following discussion. 
The system shared data queue, the Ethernet Request Block 
(ERB) is filled with Ethernet Request Packets (ERP) 
initiated by any process resident at the cluster when it 
calls for an update of the value of an eventcount that is 
also needed at some other cluster. 

The many producers of Ethernet Request Packets are 
kept in sequence by the systems sequencer ERB WRITE REQUEST, 
which basically is a ticket machine that makes sure that 
only one packet at a time is put into the Ethernet Request 
Block, and that Ethernet Request Packets are put in ona 
first come first TUM basis. The only consumer of Ethernet 
Request Packets is the driver on SBC 1. 

An Ethernet Request Packet keeps the following 


information in its eight byte structure: 


command (i. OOH means eventcount ) 


e 

type name (i.e. 8 bit eventcount id) 

name value (i.e. 16 bit eventcount value) 
e 


remote addr (i. 16 bit addr of external cluster) 


System eventcounts  ERB WRITE and ERB READ play the 
functional roles of «dataname» IN and «dataname» OUT 
respectively for this system shared data queue. 

We realize that ERPs in the ERB are in partial 
order. The order of packets for different  eventcounts 


<dataname>_IN or <dataname>_OUT is of minor importance. More 
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Figure 3.1 The Ethernet Request Block. 
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important to notice is that the logic of eventcounts, if 
used correctly, ensures 

a) that a packet with an eventcount «dataname» OUT always 
comes after a packet with the respective  eventcount 
«dataname» IN, and 

b) that all packets with eventcounts «dataname» IN for a 
specific data queue are in total order, which is also true 
for all packets with  eventcounts  «dataname» OUT for a 
specific data queue. 

2. User Shared Data Block 
As mentioned above, user shared data queues can be 

of any length and the data items can be of any structure, 
but every data item has a specific structure that is 
replicated in every slot of its data queue. 

Due to the information contained in the eventcount 
value, a specific slot ina data queue has to be written 
before the eventcount is advanced and also the eventcount 
has to have been advanced before the next slot is written 
tor The application programmer has to be aware of this 
logical sequence when using eventcounts. The system then 
ensures that always the next higher slot in the queue is 
written to, and this only if this slot is available for 
overwrite. 

This scheme also ensures that the data items ina 
respective queue are totally ordered. Furthermore, it is 
ensured that respective Ethernet Request Packets that keep 
value information of an eventcount related to this data item 
are in the same order as the data item iterations in the 
data queue. This is also true if an eventcount relates to 
multiple data. 

These facts about the relation between eventcounts, 
Ethernet Request Packets, and user shared data is the basis 
for the logic of the implementation of the drivers data 


transmission and data reception tasks. 
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Figure 3.2 User Shared Data Queues. 
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E. INTRACLUSTER DATA FLOW 

As mentioned earlier, we assume to have the classical 
producer-consumer situation for all user shared data in the 
system. Data items are kept in circular data queues that 
serve as buffers between producers and consumers. Due to 


this assumption, all user shared data are related to some 


eventcount, which replaces the semaphore used in the 
classical example. Refer to Figure 3.3 for the following 
discussion. 


À user process resides in the user area of local RAM on 
some SBC. The process becomes active when the scheduler 
chooses it as the next process to run after it was ready. 
Before a producer process can place the produced data item 
into the queue, a slot must be available. Slot availability 
can be checked by comparing the <dataname> IN and the 
<dataname> OUT eventcount values of the respective data 
queue. 

A consumer process becomes ready only when the value of 
the respective <dataname> IN eventcount has reached the 
awaited threshold, indicating that there is a new iteration 
of the data item available in the data queue. 

A process which consumes data and produces new data as 
well obeys the same rules. It is of utmost importance that 
the application programmers use  eventcounts and the AWAIT 
and ADVANCE primitives correctly. 

A producer process when running produces shared data 
items, puts these items into user shared memory, if there is 
Space in the queue, and then calls the system primitive 
ADVANCE (EVC). This system process then increments the value 
of the respective  eventcount and checks if this eventcount 
is distributed and therefore a cluster external copy needs 
to be updated. If so, it calls another system primitive, 
SYSTEMSIO, which in turn gets a ticket from the 
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ERB WRITE REQUEST sequencer and puts an Ethernet Request 
Packet ¡into the Ethernet Request Block when its ticket 
number becomes the lowest in the waiting line. 

If no remote copy is needed, then no Ethernet Request 
Packet is produced, because all consumers reside in the same 
cluster as the producer, and the cluster internal 
synchronization can take place, as all needed data (i.e. 
eventcount value and shared data, if any) is present at the 
cluster. <A waiting consumer process becomes ready and when 


activated consumes the shared data item from Shared Memory. 
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IV. INTERCLUSTER DATA SHARING IN RTC* 


A.  INTERCLUSTER CONNECTION 
l. The Ethernet 
AS mentioned in the system overview in Chapter I, 


all clusters in RTC* are connected via an Ethernet Local 


Area Network. A detailed specification of the Ethernet is 
given by Xerox Corporation [Ref. 9]. The Ethernet provides 
the lowest two levels in the International Standards 
Organization's Open System Interconnection (ISO OST) 
reference model, i.e. the Physical Layer and the Data Link 
Layer. Higher levels are collectively seen by the Ethernet 
as the Client Layer. The RTC*'s driver provides the 


system's Client Layer and the home board of the driver, SBC 
1, serves as a host in the Ethernet's communication subnet. 
The physical connection of a cluster to the Ethernet's 
coaxial cable is provided via the ECCB NI3010, the interface 
between the MULTIBUS and the transceiver which actually is 
the tap clamped on the coaxial cable. 

While the interface board provides the hardware 
connection between the highest level system bus (Ethernet) 
and the cluster bus (MULTIBUS), the ECCB software and the 
driver are responsible for correct exchange of messages 
transmitted or received by any cluster in RTC*. 

As is true for all SBCs, also communication with the 
ECCB NI3010 has to be done via board external buffers. In 


contrast to inter-SBC communication, which is synchronized 
by eventcounts, intercommunication between SBC 1, the 
driver's home board, and the ECCB is synchronized using 


interrupts (e.g. Transmit DMA Done or Receive DMA Done). 

An in depth description of the hardware  NI3010 is 
given by InterLAN Corporation [Ref. 10]. The software 
driver was developed by David Brewer. Brewer's thesis 


provided the basic scheme for intercluster exchange of 
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eventcount values. The contribution of this thesis is to 

enhance the basic scheme for a general data exchange in the 

system by modifying the driver software and exploiting the 

logical interrelation between eventcounts and shared data. 
2. The Ethernet Packet 

Figure 4.1 shows the frame format of an Ethernet 
packet. This is a given structure produced by the ECCB. 
Information to be put into four of the six fields have to be 
provided by the client. Preamble and Frame Check Sequence 
are added by the ECCB for receiver synchronization and error 
checking respectively. 

For a destination address, any six byte combination 
except all zeroes can be used, which is also true for the 
source address. The arrows on the right hand side and the 
bottom of Figure 4.1 indicate the serial transmission 
sequence of the bytes and bits. The very first bit 
transmitted in the destination field indicates whether the 
destination address is a multicast or a physical address. If 
this bit is 1, making the first byte of the destination an 
odd number, then this address is a multicast address (group 
address of any number of clusters). A special multicast 
address, all ones, is reserved as the so-called broadcast 
address, which addresses all participants in the network. 

If the first bit is 0 then the destination is a 
physical address. Physical addresses are fixed addresses of 
ECCBs. Xerox Corporation takes care that physical addresses 
are unique, i.e. every physical address is used only once in 
any ECCB worldwide. 

Due to the just described restrictions, there are 
actually 2**47 different combinations available to be chosen 
as non-physical, non-broadcast destination addresses. For 
the present implementation of RTC* it was decided that two 
bytes are more than adequate, because the maximum number of 
stations for an Ethernet Local Area Network is restricted to 


1024 by the Ethernet specification. Therefore the first 
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four bytes of the destination are kept fixed 03H, 00H, 00H, 
00H providing the multicast indication by an odd first byte. 
For the the source address, the ECCB allows’ two 
possible ways. Either this address is not provided by the 
client, in this case the ECCB automatically inserts its 
physical address, or the client fills in a source address. 
This second way speeds up the transmission process and was 
therefore chosen for RTC*. The first four bytes are kept 
fixed 03H, OOH, OOH, OOH as in the destination field. Byte 
five and six contain the cluster's address. This is not the 
ECCB's physical address as mentioned by David Brewer, but 
rather a software address of the transmitting cluster. 

The two bytes of the type field are reserved for 
use by higher levels. Clients can use this field in order to 
exchange information about a specific format used in the 
data field. The present implementation of RTC* will not use 
the type field and therefore sets it to 00H, 00H. 

The data field provides space for up to 1500 bytes. 
It is required that the minimum length of the data field be 
46 bytes in order to generate the minimum total length of a 
sufficiently long sal This minimum message size 
requirement guarantees that in any Ethernet collisions are 
detected by the sending stations, even if source and 
destination stations are maximum distance (2.5 km) apart, 
and the net performs at worst case propagation speed 
tolerated by the Ethernet specification. Collision detection 
by the sending station is important for correct backoff and 
retry in order not to loose messages in the network. The 
ECCB takes care of this minimum length requirement as will 
be seen later. Also the sending ECCB attaches a four byte 
frame check sequence at the end of every Ethernet packet in 
order to provide a basis for error checking to the receiving 
ECCB. 
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B. DRIVER - ECCB MESSAGE HANDOVER 

By a chosen wiring option, it is not possible to aceééss 
(write or read) onboard memory of an SBC or the ECCB from 
outside the board. Therefore a buffer for message handover 
is needed for outgoing messages as well as for incoming 
ones. These buffers are set up in Shared Memory as systems 
Shared data Transmit Data Block and Receive Data Block. In 
contrast to other shared data (e.g. Ethernet Request Block 
or user shared data), the Transmit Data Block and the 
Receive Data Block are single slot queues that meet the 
structure requirements given by the ECCB specification 
described in the Ethernet Communication Controller User 
Manual. 

1. Transmit Data Block 

The Transmit Data block is a structure of 1514 bytes 

that contains all information required to be submitted by 
the client in order to enable the ECCB to build the Ethernet 
packet described above. Figure 4.2 shows this structure. The 
destination and source fields are filled with the preset 
address parts as well as the dynamically changing two high 
bytes of the destination. The type field keeps the values 
OOH, OOH, and the actual message content is kept in the 
lower part of the 1500 bytes data field. 

2. Receive Data Block 

The Receive Data Block, see Figure 4.2, is similar 

to the Transmit Data Block and carries all information 
contained in an incoming message, i.e. destination, source, 
type and data field. In addition, the receiving ECCB hands 
over status information related to the message, that can be 
used by the client in order to determine the length and the 
error status of the received packet. These additional items 
of information are kept in the first four bytes (1l byte 
frame status, 1 null byte, 2 bytes frame length) and the 
last four bytes (frame check sequence) of the Receive Data 
Block, making the Receive Data Block 1522 bytes long. 
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Transmit Data Block and Receive Data Block. 


The present implementation of RTC* ignores the 
frame check sequence and concerns itself only with the data 
field. 

Even though the length of the data field in the 
Ethernet packet is determined by the length of the actual 
message, both, the Transmit Data Block and the Receive Data 
Block provide space for maximum length messages in order to 


be prepared for any legal message size. 


C. MESSAGE TRANSMISSION AND RECEPTION 

The main task of the driver on SBC l is to build a 
message that is to be transmitted over the Ethernet, and to 
Process a message that was received. For transmission, the 
message has to be built in the Transmit Data Block in Shared 
Memory first, and then the ECCB is to be triggered for 
transmission. For reception, after the ECCB signaled that 
it has put a message into the Receive Data Block in Shared 
Memory, the correct data queues in Shared Memory have to be 
found and the data items have to be put into the correct 
slots in their respective data queues. 

In order to be able to do this correctly, every driver 
maintains a table in its local RAM which contains all the 
information needed about the relationship between 
eventcounts and shared data items. 

1. The Relation Table 

We assume that every user shared data item used in 
the system is related to some eventcount. The driver 
exploits <dataname>_IN eventcount, because this is the 
trigger for shared data transmission when put into an 
Ethernet Request Packet by the SYSTEMSIO process. 

Only if a «dataname» IN eventcount was advanced, was 
there a new data item put into the respective data queue. An 
eventcount can also serve as a «dataname» IN indicator for 
multiple data items that are updated at the same time. The 
important property is that for every shared data item there 


exist one «dataname» IN eventcount, which is advanced after 
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the data item is available in its corresponding data queue 
in Shared Memory. Only if an eventcount is distributed over 
the system, and therefore a cluster external copy is needed, 
is there an Ethernet Request Packet produced: and put into 
the Ethernet Request Block. Every data item is distributed 
over the same clusters as the eventcount to which it is 
related. A <dataname> OUT eventcount only informs everybody 
in the system that a slot in the respective data queues 
becomes available for overwriting (an important item of 
information for producer processes), and so these 
eventcounts, if distributed, will be transmitted alone, with 
no user Shared data in the same Ethernet message. 

This logical interrelation between eventcounts and 
user shared data is kept in the relation table shown in 
Figure 4.3, which is a structure of 100 entries (the present 
implementation of RTC* allows for 100 eventcounts per 
cluster), which holds the eventcount id and the number of 
related data items on level two, and information about up to 
10 data items for every  eventcount on level three. Besides 
the knowledge about how many data items belong to some 
eventcount, the driver needs to know, where to find a data 
item, what is the items structure size, what is the data 
queue length, what is the next slot to be sent, and what is 
the next slot into which to put a received item. 

The relation table is built by the driver during 
system initialization by the procedure make table, see 
Appendix A. This procedure reads the file relation.dat, 
which has to be present on the disk that keeps the cluster's 
software. 

The driver (see Appendix D) is a general system 
process that is identical at every cluster. The relation 
table is cluster specific and keeps cluster specific 
information only. The relation.dat file has to be set up by 


the lead programmer, who decides what application program is 
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Figure 4.3 The Relation Table. 


to be run at what cluster, and therefore knows what 
eventcounts and user shared data are needed at a cluster. 
The relation.dat file basically is a table 
consisting of five columns as shown in Table I. It keeps 
eventcount identification, number of data related to this 
eventcount, and for every data item the address of the first 
byte in its data queue, the length of the data queue (# of 
slots), and the length of the data item structure(# of 
bytes). The last line in the relation.dat file serves as a 
sentinel consisting of zeroes in all five columns. The 
procedure make table expects the formatted indata to be in 


columns 5, 15, 25, 35, 45 respectively. This information is 
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TABLE 1 
FILE RELATION.DAT 


evc id numdat point dlen 


NO 
WO 
Ur 


ON FUIIINNA Un 
OOOO OOO 
OOOHO 


O 


8c58 
8d84 
8da2 
3e06 
8ela 
8ebO 
9072 
90bd 
0000 





read into the relation table entries  evc id, numdat , 
pointer, qlen, and bytes respectively. Next in and next out 
are initially O and therefore do not have to be read in. 

The information kept in the relation table suffices 
for the driver to do its job. The driver does not need to 
know anything about' the logical structures or names of data 
items. It treats a data item as a sequence of bytes, and is 
only interested in finding the correct sequence of bytes for 
transmission, or the correct place in Shared Memory to put 
the bytes after reception. Procedures make message and 
process packet take care of this. 

2. Data Format 

A decision that had to be made was in what manner 
the data field of an Ethernet Packet should be used in order 
to exchange data in RTC*. The question was discussed whether 
to use different fixed formats for different situations and 
using the type field for identification of the format used 
in the data field. After recognizing the logical 
interrelationship between eventcount and shared data, that 
carries the possibility of uniquely identifying a group of 


shared data by its common eventcount, it was decided to keep 
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the data format as flexible as possible. 

The first four bytes of the data field will always 
keep the eventcount information followed by as many data 
items as are related to this eventcount. The maximum length 
of these data items together is restricted to 1496 bytes in 
order to respect the 1500 byte limit of the data field when 
the 4 byte eventcount information is included. This seems 
to be more than adequate for the purpose of RTC*, and still 
leaves the possibility to transmit all data items as long as 


a Single item is not longer than 1496 bytes, by logically 


grouping data items under eventcounts respecting this 
restriction. 
The eventcount is the identifying part, therefore 


only one eventcount is transmitted in any Ethernet packet. 
3. Message Transmission 

Message transmission iS triggered by an Ethernet Request 
Packet (ERP) available in the Ethernet Request Block (ERB); 
more precisely, by an advanced eventcount ERB WRITE 
indicating that there is an ERP in the ERB which has not 
been processed yet. The driver with its preference for 
outbound messages will start atransmit job as Soon as 
possible. In the initialization part, the driver already has 
preset the first four bytes of the destination field and all 
Six bytes of the source field. Refer to Figure 4.4 for the 
following discussion. 

Bytes five and six of the ERP are copied into the 
two high bytes of the destination field of the Transmit Data 
Block, making the first 14 bytes of the Transmit Data Block 
complete. 

Next a four byte overlay is put over the ERP, using 
a based variable [Ref. 11], after which the procedure 
make message (see Appendix B) is called. 

This procedure first checks if the ERP contains an 
eventcount (in the present implementation only eventcount 
related ERPs are processed). If byte one of the ERP 
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contains 00H, indicating EVC TYPE then the first four bytes 
of the ERP are copied over into the first four bytes of the 
data field of the Transmit Data Block. 

Next. a relation table look up is done under the 
respective  eventcount id and the number of related data 
items is found. If the event count 1d 1.5 not in the table, 
then there are no related data and the message is done, 
otherwise the first related data item is found, an overlay 
(1500 bytes in the present implementation) is aligned with 
the data queue, using the address information (pointer) of 
the data item. Now the slot number (next_out) and item 
size(bytes) are combined to an offset in order to find the 
first byte to be copied over into the Transmit Data Block to 
follow the eventcount information in the data field. The 
data item size (bytes) contains the number of bytes to be 
copied over. 

The next_out of this data item in the relation table 
1s updated to the next slot number, and the loop starts 
again for the next data item related to this eventcount. 
Meanwhile also the total bytecount for bytes put into the 
data field of the Bras Data Block is carried on. After 
all the related data has been copied over into the Transmit 
Data Block, this bytecount information is added to 14 (6 
bytes destination, 6 bytes source, 2 bytes type) and the 
resulting bytecount is uSed aS a parameter in the procedure 
transmit packet, which signals the ECCB that a message is 
ready to go and should be sent. 

Just before calling procedure transmit packet, the 
driver calls ADVANCE (ERB READ), which makes the just 
processed ERP slot available for reuse. 

The ECCB copies the number of bytes signaled 
(minimum 60) into its transmit queue and puts the message 
out over the Ethernet. If necessary due to collisions, the 
transmission is repeated and only after the message was 


successfully sent does the transmitter become ready for the 
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next transmission, which is prepared by the driver in the 
above described fashion. 
4. Message Reception 

Message reception is triggered by an ECCB interrupt 
signaling that there is a received message available in the 
ECCB's receive queue. Refer to Figure 4.5. The driver then 
initializes a DMA and the ECCB puts the message into the 
Receive Data Block in Shared Memory. After the message is in 
the Receive Data Block, the procedure process packet (see 
Appendix C), is called. This procedure works similarly to 
the procedure make message. 

Instead of getting the needed information from an 
ERP, procedure process packet has to look up the first bytes 
in the data field of the received message. This 
implementation of RTC* neither uses the frame status and 
frame length information, nor the frame check sequence. 

First the procedure process packet looks up byte one 
of the data field in order to check if the just received 
message contains eventcount information. If so, it finds out 
if the value of the just received eventcount is higher than 
the local value Pene respective eventcount, because the 
message is of interest for this cluster only if the remote 
eventcount value is more advanced than the local one. 

If the remote value is higher, a relation table look 
up is made under the eventcount id found in byte two of the 
data field. 

If there is no entry in the relation table for this 
eventcount, then no related data exists and the only thing 
to do is to update the local eventcount value. 

If an entry exists, then the address (pointer) of 
the first related data item is found, an overlay is aligned 
with the respective data queue, and the slot number 
(next in) and the item size (bytes) are combined to an 
offset in order to find the first byte in the data queue 
that is to be changed. Then the number of bytes found in the 


46 


# data items related 


= = type name 
pointer 


| queue length| 
| bytes 





Relation Table 


Data(1) Data(2) 





Dat vect Dat vect 


eventcount 
value 


LA 


Type and Source and ince T 


Frame Status and Length 


”00*=eve 







Receive Data Block 


Figure 4.5 Message Reception. 


47 


item size information is copied over into the data queue, 
Starting with byte five of the Receive Data Block's data 
field (i.e. the first byte of the first related data item 
received). 

During this operation also the bytecount is updated 
in order to find the starting byte for the next related data 
item. 

Similar to the procedure make message, the procedure 
process packet updates the next in information to the next 
slot number in order to be ready for the next incoming 
message bringing an update for this data item if any. 

After the first shared data item is copied into its 
correct slot in Shared Memory, the next related item is 
copied into its respective queue. After all received related 
data items of the received eventcount are updated, the 
eventcount is advanced to its new value, signaling the 
shared data status to respective consumers at this cluster. 
The procedure process packet takes care of advancing the 
eventcount only after all related shared data items are 
updated, guaranteeing the consistency of eventcount values 


and data items. 


D. DATA SHARING 

It is obvious that data sharing using buffers in Shared 
Memory can only be achieved when producers and consumers 
agree upon, where to put and to find the respective data 
items. Also, this only works, if producer and consumer deal 
with the same item structure. 

In a system like RTC*, where probably many applications 
programmers write different system modules, these 
programmers have to agree upon the shared data names and the 
structures and queue lengths (at least for intracluster 
sharing). 

Even though it would suffice to only declare those 
shared data items that are actually used in some process, 


the policy followed in the demonstration program was to 
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include a common declaration file in every module in order 
to ensure that sharing modules really work with the same 
data item. Following this example in a real program makes it 
easier to maintain all shared data declarations, probably 
done by the lead programmer. 

Applications programmers include the shared data file 
in their programs and only have to be concerned about the 
correct use of those items actually used in their programs. 
Table II shows the file share.dcl for the demonstration 


program. 


TABLE II 
FILE SHARE.DCL 


DECLARE 
(de ptr,tr ptr,mo ptr) pointer, 


1 RE iU based RS Op tay). 
ixed bin 

ixed bin 

fixed bin (7 


y 


3 
3 


d 
dz 


rack(0:49) based(tr ptr), 
x fixed bin (15 x 

y fixed bin (15 

z fixed bin (15 

S 
1 
a 
e 


3 


issile order(O0: y based(mo ptr), 
auncher fixed bin (7), 
zimuth float binary, 
levation float binary; 


2 
2 
t 
2 
2 
2 
m 
2 
2 
2 





This file ensures unique declarations for all user shared 
data in the whole system. 

Every user shared data item is declared as a queue that 
is based on a respective pointer. Using based variables 
provides the possibility that in spite of total user shared 
data declaration, only for those items that are to be 
resident in some cluster's Shared Memory physical memory 


space is assigned. This leads to efficient use of memory 
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space. As mentioned before, contiguous storage of data 
queues enhances the efficiency even more. 

This requires thoughtful assignment of addresses to the 
different data queues in the system. As for the relation.dat 
file and share.dcl file, the custodian for the assignment of 
pointers also should be the lead programmer. Applications 
programmers do not have to worry about this because they 
refer to a data item by dataname. Pointer assignments are 
kept in the file pointer.ass, which is cluster specific; the 
share.dcl file is the same for every cluster in the system. 
Table III shows the two pointer.ass files used in the 


demonstration program. 


TABLE III 
FILE POINTER.ASS 


15 l l ) 
this file keeps the pointer assignments 
for shared variables used at cluster l 
a TE 
unspec(mo ptr)-'8d84'b4;j; 


alo 


this file keeps the pointer assignments 

for shared variables used at E 2 
T 

de^ ptrj-, 


unspec Zz 
mo ptr 


unspec 


unspec(de-ptzr] 





In order for processes to be able to really share data 
in Shared Memory, it is important that they find shared data 
under the same physical address. Under INTEL's policy that 
calculates a 20 bit physical address from a segment and an 
offset, this implies that user shared data has to be found 
in the same segment, the pointer or logical address then is 


the offset in this segment. 
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In RTC* this is realized in using 800H as a data segment 
register value and using sixteen bit pointers for shared 
data starting at 8000H. The lowest Shared Memory address 
therefore is 800H*10H+8000H, which is equal to 8000H+8000H, 
or 10000H. The lowest byte of the Ethernet Request Block 
resides at the above address. 

The segment used by a process is defined in procedure 
create proc. It is important that the parameters 4, 7, and 
8, i.e. stack segment (SS), data segment (DS), and extra 
segment (ES) in the create proc call are set to 800H when 
creating a process. As mentioned by Brewer „when he 
describes user process creation [Ref. 1: p. wu some 
PL/I-86 routines assume identical contents in the SS, DS, 


and ES registers. 


ON 


V. CONCLUSION 


The goals of this thesis were achieved. The MCORTEX real 
time executive is extended to handle multicluster general 
inter-process data communication. An appropriate model for 
intercluster shared memory is implemented by partial 
replication of intracluster shared memory. Only PL/I-86 
modules were modified or newly added. 

The message exchange scheme is kept as flexible as 
possible, with the only restriction that the four bytes of 
eventcount information have to be put into the first four 
bytes of the data field of the Transmit Data Block, and all 
related data items have to follow in the sequence given by 
the relation table. The driver takes care of this. 

Maximum data length in a single message is restricted to 
1500 bytes in accordance with the Ethernet specification. 
This size seems more than adequate for the purpose of RTC*. 
If longer messages are needed in the system, a correct data 
exchange can be achieved by breaking up the message into 
smaller ones relating these to specific eventcounts. 


The driver takes care of correct message assembling and 


processing, and is -- asa special systems module with a 
dedicated board -- completely transparent to the 
applications programmer and user. The lead programmer will 


have to decide how to distribute different applications 
modules, and where to store data queues in Shared Memory. He 
or she will have to maintain the relation.dat file and the 
pointer.ass file, and also the agreed upon user shared data 
in the share.dcl file. 

In the current implementation of RTC* the distributivity 
of the eventcounts (and with these the distributivity of 
data items) have to be set at system initialization. This 
restricts the dynamic reconfiguration of the system after 


initialization. Future implementations should try to resolve 
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this restriction. A possible way might be to exploit the 


general broadcast situation of an Ethernet environment. As 
only one message can be on the Ethernet at a time, and as 
all stations on the net have to listen and cannot do 
anything else during this time, this situation could be 


exploited in the following manner. 

Use the eventcount_id as a kind of multicast address. As 
there is only one eventcount in any one message this is a 
unique identification of what information is carried in the 
message. Every cluster "knows" what information is needed at 
that cluster. If the eventcount ids of related data items 
needed at some cluster are put into the group address table 
of that cluster's ECCB, then every Ethernet packet that 
carries information of interest for this cluster will be 
taken in and processed. 

It is not necessary to keep the remote address for an 
eventcount in Common Memory. The information that an 
eventcount is distributed or not distributed, meaning a 
cluster external copy is needed or not needed, suffices. 
This distributivity information can be initialized for the 
initial system constellation. On reconfiguration, it could 
then be automatically and dynamically changed without having 
to shut down and reinitialize the whole system. 

After reconfiguration, only those clusters where actual 
changes were made broadcast the eventcount ids of interest 
to the cluster. Every other cluster updates its 
distributivity information for those eventcounts. 

There was not enough time for the above described 
implementation in this thesis, but future work in this 
direction is highly recommended in order to make the total 
system more efficient, more robust, more survivable, and 
more flexible, requirements that are of utmost importance 


especially for military applications. 
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APPENDIX A 
PROCEDURE MAKE TABLE 


Procedure make table is the first procedure called by 
the driver. It sets up the relation table in local RAM of 
SBC l by reading the information from the file, 
relation.dat. 

The relation table is a three level structure that keeps 
the eventcount_id (evc_id) and the number of data items 
(numdat) related to this eventcount on level two and the 
data queue address (point), number of slots in dataqueue 
(qlen), number of bytes in item structure (bytes), next slot 
to be sent (next out),and next slot to be received (next in) 
on level three. 

There are maximum 100 level one entries in the relation 
table, because the maximum number of  eventcounts at any 
cluster in the present implementation is 100. For every 
eventcount a maximum of 10 related data items are possible. 
The driver looks up an eventcount_id and finds all 
information necessary to either combine data items in the 
Transmit Data Block for transmission, or put received data 
items in their respective Shared Memory slots. 

Procedure make table expects the indata evc_id at column 
5, numdat at column 15, point at column 25, qlen at column 
357 and bytes at column 45 in the relation.dat file. 
Next-out and next in are initially O and do not have to be 


read. 
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3E ACA E RRE E DAR RR ntt ojo nox ote te x siot xc IS A oix o ai ae ox A RN A A DR XA 
AE ME HE KE IE HE NE AE E RAE RAE HE E E A AS NE KE KK XK KOHA KE KE KE xc xor xc xc x DRA RA AE IA IR TRI II RE KI XA IK IK 


SEE PROCEDURE MAKE TABLE R.Haezer, Dec 1985 > 
E A A A ee eee c 4 t Xe st 
*** This procedure reads relation values from file Te k 
*** RELATION.DAT into the relation table. fx 


AE RE RE S BE AK SIE AK RERE DR SKIE AE SENE SKE S A RE IKE I SIS OK OE fe I aie ae aie Hc ate A tote otc oc ll e LR A RR RAR RA A aie ais 


make table: procedure ; 


declare 
relation file, 
(3,1) fixed bin (15), 
eof bit(8); 


Bp. file (relation) stream input; 
1790; 
eof-'Qü'b4j 
do while (eof-2'2'b4) ; 

E les 

/* read data from relation.dat file */ 

get file (relation) edit(rel tab(i).eve id, 

rel tabíi).numdat) 
Ccolummys eee), column TS). 4.2) ) § 


do j21 to (rel tab(i).numdat): 
/* read data for all related items */ 
get file (relation) edit 
(unspecí(rel tebí(i).data(j).voint), 
rel tab(i).data(j).olen, 
rel tab(i).data(j).bytes) 
a (4) columuiob5 EL column (43) fot 


maxabytes=max (maxabytes, 
rel _tab(i).data(j).bytes*rel tab(i).data(j).alen); 


end; 
/* if sentinel is reached */ 
if rel_tadfi).eve_id = “22 "b4 then 
dM o 
eof= 1 b4j 
put skip list( “longest data aueue at this cluster:” 
maxabytes, bytes’); 
end: 
end; 
end make table; 


KE SK XE SK AE XE XL AE IK R IK XE XE IE XE KE XE SE xe oe si xc DE XE IE KE HE IC CAE AE KE NE SE ANE NE OE ES OK OIE AK AK KC OE OE EE INE oe aK A XE NE XE EK XOX 3: 


APPENDIX B 
PROCEDURE MAKE MESSAGE 


Procedure make message is called by the driver when 
there is an Ethernet Request Packet in the Ethernet Request 
Block that has not been processed yet. 

It checks the ERP for eventcount type, and if the ERP 
contains eventcount information, it sets up the data field 
of the Transmit Data Block. The eventcount information is 
always put into the first four bytes of the data field, 
followed by all data items related to this eventcount in the 
Sequence given by the order of these data items in the 
relation table. 

Procedure make message also keeps track of the bytecount 
of the total message, an information needed by the ECCB for 


transmission. 
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MERE AE XE RE KE Be He NE AEE SAE DE BE A RA RE A A E AR DE HK AR XAK V2 RE DARA D2 KERK RA KE RE KA MERA IZ RR A IR RE RE YR TE IE IA ZE 
RE SE SE SE SIEK DE DE IR FK AE DE KE RE AE S E FE RERE SERE E XE RE KE HA KE KR oto XE X XE NE x x KE KR LE KA KA HR KE XR KA KR KE KR KE DA XR ZA SAER XE xe 


TN PROCEDURE MAKE MESSAGE R. Haeger, Dec 1935 **» 
X —— ——  ' — AM. ^ «LANE. o wa "V  — — 
Em This procedure builds the Transmit Data Block for ae OK 
"** a message to be transmitted over the Zthernet. ve vee 


IK IE RE SE D E SEE AE RE AK IE DEAR DE SE K HE HE KE KE SK AE BIE NC OFS ME DE NE A NIE R XE XE XE KA DA fe x SICKE IR R TA IF DA IK KE SKE XE SE KR KA OMe OE ote Oe KE KE aE E 
make_message: procedure ; 


declare 
Wati ptr pointen: 
dat_vect(1539) bit (8) tased (dat ptr), 
Mext_ out: r, j) fixed bin (7). 
off, start, lastas) fimed bin (15); 


e heck for evo */ 
if erp vect(1)-EVC TYPE then 
dos 
bytecount=4; 
do k-1 to 4; 
Perot evcsinhosinto data NU / 
transmit data block.data(k)=erp vect(x); 
ends 


/* check message 

pup list ::::' ,transmit datasb] oc. drammee1), “ck. 
transmit cdataeulock data. 2), es. 
transmit duod» ose. dia ad) 3:2 - 
transmit data tlo. datali) ia: 


r-1; 
Pend respective relation tablet / 
do while ((rel_tabir).evc_id = erp_vect(2)) $ 
(rel tab(r).evc id = “22b4)); 
r=r+1; 
end; 


AD ec entry */ . 4 
if rel tabír).evc_ id = '22'*4 then 
dos 
/* for every related item */ 
to rel tab ricaimdab, 
Sdn —oy tLecoun tet aly ind here to pun */ 
last=rel tab(r).data(j).bytes;  /* nom long 81 is =y 
BYGeceount=bytecount + lasti opp track. */ 
dat ptrsrel tabí(r).data(j)).poirt); /*alien datvect*/ 
"nexteout-zrel tab(r).data nem out; 
/* compute offset of item in data queue */ 
ObDp-oreb tabtr) data I)e bytes wert ouEM) - 5 


/* compute next slot number to go */ 
rel tab(r).data(j).next out-mod(next out -* 1, 
rel tab(r).data(j).a1en); 
do k=0 to (last-1); 
/* put item's bytes into data field */ 
transmit jata_block.data(krstart )=dat.vect(ktoff); 
end; 
end; 
end; 


/* compute total bytecount for message */ 
bytecount-bybtecounbe 4, 
end; 
else do; /* if not evci, 
end; 
end make_messages 


SE HE OS AC 2S AE HE BK IE HS SIE BIS BS SES OK OS SK OK OS IS OK OI SIR SIS YS OS OK OE BC AE KK OES AEE IS AS EAE HE BE HE AE AE RE ERE AA AE SE XE SiE SK SE FE 
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APPENDIX C 
PROCEDURE PROCESS PACKET 


Procedure process packet is called by the driver when 
there is a newly received message in the Receive Data Block. 

It checks the received data for eventcount type, and if 
the message contains eventcount information, it checks if 
the received remote  eventcount value is higher than the 
local value of the respective eventcount. Only if the remote 
value is higher than the local value, it processes the 
received message. Using the eventcount_id in byte two of the 
data field, a relation table look up is done and all 
received data items are put into their correct slots in 
Shared Memory. 

After all data items are placed correctly, the local 
copy of the respective eventcount is updated by calling 
ADVANCE(EVC). 
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Ae HEI OH HE OK AE OG BIC a ls ale a de ode a ai le ale de a e afc ai afc aK ake HC She a SE AGE SKC EE IPK E a HE KC IE ONE OIE BE A H E e a e e RA 


HE AE HK AK IE HE IS I HE IE NE HEE AE TS THE TIE IE OE IS AK BE HR IK HE AC AE NE HE HE NE IE HE AE BE AE OR E O AE IE IK AE SE AK NE AA A A 


Mon PROCEDURE PRCCESS PACKET R.Haeger, Dec 1985 sx 
AMAA Lm emm cm me Ws m Ey dm mus em eme wu map GM Med wem cus Ne ME UR ER M A A e ae qu E E n E E D e e E AX 
“eX This procedure processes received messazes. nna 
*** It taxes the data from the Receive Data Block and SE 
*"*'" put every item in its correct slot in Shared Memory. *** 
«sx It also. call- Tror an | update of the evencourt value. A 


A 
a 


ae we ale ale i ' 
ETE ME HE NS HS DHE HS FISTS HE AYE IHS SE K K OIE SIE BS ACTS TS He TST ASHE NS SE SITE SIS IS SIS NE YS TIS AS ES IS EK SIS BIS E ENRERE EE 


process packet: procedure; 
D*CLAREZ 


evcid bit (8), 
local 9vc value bit (16), 
(dat otr. 0) DOMENUS 
remote evc value bit (16) based (p), 
dat vect(150 SD sed lutei 
(off,StartolestE o Ao 
(next inum.) Enmsd pM 5 
put skip list('receivine'); 
A A 
if receive data block.datal(1l)=evc type then 
dos 
p = addr(receive data block.datai3)); 
evcid=receive data block.data(2); 


local eve value = read(evcid); 
if local eva valne reno eleve Nalue then 
dos 
r=1; 
/* findievc Sao e 
do ii co NC 
(rel tab(r).evc id = “290 "b4)); 
r=r+1; 
end; 
if mel tot evera = a D hen 
do; 


byteccunt=4; /* jump over eve info */ 


do j=1 to rel tab(r).numdat; 

start=bytecount+1+ /“ compute start of item = 
last=rel tab({r).data(j).bytes; /* and length */ 
bytecount=bytecount+last; /* and item’s end */ 
next_in=rel_tab(r).data(j).rext_in; 

/* compute offset in data queve */ 

offzs(last*next in) * 1; 

/* compute next slot rumber to fill */ 
rel_tab(r).data(j).next_in=mod(next_in+1, 

rel tab(r).data(j).a1en); 


ee 


ite ptn—-reletabin).dAtaij) «points /* align da evecy/ 


diogi-a D oM 3S rm 


/* put item bytes into data queue */ 
dat vect(k*off)-receive data block.1ata(k*start); 
end; 
end; 
end; 


/“ update local eve value */ 
do while (local evc value «4 remote evc value); 


call advance (evcid); 
local evc value - add2biti6(local evc value,'2201'54); 


end; 
end; 


else do; A S 
end; 


eal disable cpulinterrunpts; 
eni; 


end process packet: 


3 sie leoi oie ote oit oleo o oe opt oc ode opt ote oj stes oc ote sje oe spe te ote ye ode oe ge zit age xj he OKC he aE ac ae a ke sje xe 2l ode ode ate ste o ole ote sie oe xc ote sl aK aK XE 
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APPENDIX D 
THE DRIVER 


The driver is the software link between a cluster and 
the ECCB that hooks up a cluster onto the Ethernet. IE 
manages all cluster external message exchange (transmission 
and reception), and sets up the clusters communication 
ability in the first place. 

The driver resides in the user area of SBC 1, which is 
dedicated to serve as the cluster's host. The executable 
file names are ClPROC.CMD and C2PROC.CMD for the two cluster 
constellation of RTC* in the AEGIS lab at the US Naval 
Postgraduate School. 

The LINK86 Input option is used to link files sysinitl, 
Sysdev, asmrout, and gatemod into CIPROC. Sysinit2, sysdev, 
asmrout, and gatemod are linked into C2PROC. 

Cluster specific information about the creation and 
distribution of eventcounts is contributed by sysinitl and 
sysinit2 respectively, which are the main procedures for the 
linkage. Additional cluster specific information is read 
from the address.dat file and the relation.dat file during 
execution at runtime. The  Zincluded files sysdef.pli and 


NI3010.dcl provide system-wide information. 
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AE FE AK AE XE IE AE AE E AE AK AER A REI DE NE LLL 
ME AE HEHE HE AE NE HE DS RE AE ACNE AE RE NE AE NE AK NC HE AE A IE NE RE IK IK KERE IRAE K NE AAA A SIE DA AE A ARE A IE RK E IR HE SE RE RA E XE AE HE 


ra CUBROC. INP file uH 
Mc Iu. cca cus des ug AN DN. Ms ud MES NE RSS UA a mk a um ia ui a ums E Ax x 
Xu" wThis file is used to link System initialization, RE 
*** driver, assembly language routines, and zatemodule Xe SE AE 
a anto CIPROC.CMD, the executable file run on SBC 1 at vw 
E cluster 1. x 
x c ole ste fe ze o ie siete ste ete ote te otl ote e o ot te ole ote ate of xe ol ode ze ote de e oe afc se a abe af ots ote ote fe ate te oe tc o ote te oe te cte te t sioe o 


EXProc = 

sysiniti [code[ab(439]l,data(a» (800],m[2] ,ad (82]] , map([a111]. 
sysdev, 

asmrout, 

zatemod 


Ae OYE AE XE HC AE ONE OE a e HE XE FE FK 312 R IR E AE le ad KEA HE A E A e EIR IP e a ae AE SIK e HE AE S SK E E AK AK E SK XE AE DEOK OE FK A 
SEERE SE E ME IE XE XE RE RE KERE AE NE E de aj als lle OIE Bs RC NE a HE IE Se hE ake ONE A Re Al RA ARAN RA A XEK ae E XE Ne aE 


id Cluster 1 RELATION.DAT file uer 
MEE Lu LL Qu. eub mme mm <A ME A E A SE A GU cet Se ae A GEA PD O a A E E A a O TO A TU GENE A A am am ame E O CD am ee a GSS GE SSS aA OK 
*** This file keeps the data used to build the relation *** 
*** table: Bos 
AE e 
Uus evc ià numdat point alen bytes a 
se a dde 
mes Col COl col col col akin 
ao 5 13 25 $3 45 as 
xt i te oe ze te te oe teste si o zi je zt zt oie te te o stc stets ote oie ae ae ac ae See oie ak abe a aie ak Re ake ake ae a o zie se ste zu e ot oe ote ote oeste ze aieo 

01 1 8c58 50 6 

a3 i ada«4 50 9 

o9 Y 2000 o0 Y 


HE AL AE HE AS HE AC AE TRA AER SR A RE ARE AEREA EAE AC KE OK SRE IE AC SK IK OK RENE OK AS AS NEE HE OK AE IE AEE IE IE ACE SE OE IK OK OK 


XE WE AE RE HE NE Re EEE a ote ote ate ote stc oe ote e oj xe at ote eae ake ae Se oe OC ake STE ae xe ox AE N XE B XE SE KE RE AE NL NE texto xc oe aie ake fe ae akc ok ak 
ive Cluster 1 ADDRESS.DAT file NUR 
Pee A A en me m mee ces ee eee ed ee ee ae es ee p um Gum UP GE, cub cm cm meme He A 


me This file KEEDS the number of group addresses, 
the cluster s aroupy address wes) and the cluster's 


E 
** source address. MUN 
xc sicot XE ie oie xe oc exe zie ote xe oe oie ote ote ctc oe ote oto oco r ote ale fe te abe fe x xe xe cte ake ake aed of akc ake sie ake ok R 


l, 
“200020004 dD, ez20eec1 o, 
"03000700 "b, "00303031 b 


BE AK HE AE IK NE IK AE HEE AC AE IK AE AE OE IC HK SS NS IE AS OC AE AE OE EAE AE KE OK SENS HE Ne IS NE OK SS OS OIE OS BIS IE DIS HE HE IE IK OC XE DC iS BIS AS OIE ois oie aie 


63 


2 DR DSK ste te ale e tote leales e ek A aC al od ld a tete x tox oot nl xe xot xen 
AK AK RE RE E DK DK 2E DEDE E AEI DK AE SEE D DK ote HE HE HE BES BE OR A a EE IK IK OE a CH DE aK DK 2K 9K KE 2 OCH aH A 2 


Xe aeae BE LN PLIS S AE 

de D MMC EI UMEN MIU M LU IT ICD CELLO xc zx oc 
xxx This is the system initialization procedure for dn 
xr clustere ii xK e 


she ste ote le lola d e fe ak ote fe ak ake ae ae ah e ol de eae abe ate ott ate ae ae ate ak ok a abe ke ake ait ae eae ale ak a ote he fe af a cox 
sysiniti: prec options (main): 


Zinclude “sysdef.pli ; 
Zreplace 


EYC_TYPE by “20°d43 
ma mE 


call define cluster (220104); 
/* must be called prior to creating evc/ís */ 


f**** USER xe / 


call create evc (TRACK IN); 
callicreate eye ERACE: TOUTIR 

call create eve (MISSILE ORDER_IN); 
call create evc (MISSILE ORDER OUT); 


JE SYSTEM "eek / 


call create eve (ERB FAD); 
call create evc (*RB WRITE): 
call create seq (ERB WRITE REQUEST); 


/* distrib. map called after eventcounts have 
been created * 


call distribution map (EVC TYPE, TEACK IN, 0023 TADE 
/* local and remote copy of TRACK IN needed */ 
call distribution map (EVC TYPE, MISSILE ORDER OUT, 
^2€03^'54); 
/* local and remote copy of MISSILE ORDE3 QUT 
needed */ 


/* create driver */ 
call create proc ('fc'64, '80'b4, 
^26a5'b4, '?BC0'b4, '205f^'b4, 
^Q4359^b4, “0E20"b4, “002 "D4); 
call await ('fe'b4, '01^'b4); 


end Ss 
Xe SHE ake ae ote oe Ne NE oH KEIR oie oie oe OK ate ale ale ol ade e ae e ake fe of ate ake ate ate oe ake ak SPE ale SE ale ake ake ake aie afe te ak ale oie ae E ale ae a 
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CR ot XE D e KE S E Ae SE AE al ote oco E a A o E XE KE AE KAE KC KE RC OE le E KE AKE KE SK A e RE HR E XE E E 
A o te sies Seats Sie ake oie oie aXe te ste aie she e ate ale E he oic stc Ele d ake ES SE e oo 
MESS CODROC. TN DONIS ME HEH 
A A A L E s ve He ue 
This filets eed po lineeswewem i nites] 1 zat , M 
*** driver, assembly language routines, and zatemodule ES 


*** into C2PROC.CMD, the executable file run on SBC 1 at 


pO" olwster 2. ie 
NER XE KC ED otc se oleo oie oto ctc x ou HE NEE OIE oO SHE RA aix o OX RE DE D XE 3 OFS BE KC XE RE HE XA YA DLC XE SA VE ae OE Of ake BC She 


L d 


c2proc = 
sysinit2 [code [ab[432]],data[ab[83],m[Ø],aa[22]],map[alll], 
sysdev, 


asmrout, 
gatemod 
ACE CORR S XO oe oe ood AE RE XE SK sje xt oc otc ote xoxo e o A IE NE OE OK OK RE OK OE OK Oe OS aK ot ae oie ok aie Og I OIE Ble OK E XHK 
2h EAE TE NENE E E ENE BYE IS TIS AE DIE HE NE DIC DI BIS BK AIS NEAR NENA SHEE ME DIE DIS Re DIC DIS IS NE IE Me NEE SK NE DS 3S G a 
un Cluster Z2 RELTION.DAT file S 
a e e e e a ¡O O. r i m m E m m m L ETT. E E O A R r O m a e ms NCECGK 
*** This file keeps the data used to build the relation *** 
Bo table: a UNE 
exeo Mx 
moe evc id numdat point alen bytes p 
ROOK HK sere 
ae col col col COL col mem 
m 5 135 25 ó5 45 p 
AE Sol sie oic oco ot es sie eot oe se oe oe ze ze ote ot oe ote te ote cte oe zit of nte oc ote ote ote ox OE AE OK NE OE NE NE OK ie BKC NE REA oC XC XOLG aE OH 

21 1 8C E 59 6 

05 1 8d 84 20 Ó 

AS 1 Sdcd 5¢ 9 

OO y 209902 20 Y 
MK ME IE A E RE AEREA RE SIE HE HE IE HE HE IK OE RENE AE EK AE BS BK EHS OE ONS AE THC AS OS OK E NERO ERE E AR A NESE SK AE 32 32a 
XX xc oit stc ste xit o ott occ ode opt ojo oot oe o aee sk OIC AE ose xt oie ot XC ONE OIE OEE BEANE ote ate ote ote ote ox ONE OE ONE OIE AK DIE OK OIE NS Og aE OE Be OI IE NE a AK ae 2K Xe 
pU Cluster 2 ADDRESS. DAT file E 
pL oes co NE uu sl LLLI. Bou 
nos This file keeps the number of group addresses, MSIE 
Se the cluster's zrouņ address(es), and the cluster’s Seek ae 
*** source address. Ur 


xc xe zie se ote si Ne Bie HEME ote oto v SEE OK AS BEE NE IE NE AK HE IE a SHEN x xi o xe sie X HK DN AE IIE aie ope xoc ote otc ole otc oie otc o otc oie ake NE ORK he OKC ote o oj gc otc xe 


1, 
^02000000'0,'0209090010^b, 
“00020000 b,  ELeZO216”D 


HE AE NEL RE A E IE ME L E NENE E AE RE E E AE INE OIE IS NE OE NEE OE SIE E NEE OE RE AR 
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HE AE AE IK AE AE AC AE DS AIS HE AEE HK IIE Ae DE DC AE AE AL AK AC AE HC RE IE E RE AE E RAE E RR A E A E RE EEE AE E E E AER RR NE IE OE OK 
AE RE RE HE NE SK AE AE AIT AS HEE A HE AE OE BIE DYE DIS DC NE TE ACI BK AE AE HS AE RE AS EME 1S AS DE DE AE HC AE IE D K RE K NE IK ATRE AE RE A IE TK OYE FE OIE OIE S 


AC eK 


HE Ie HK 


aS HE K 
‘SK AK XE 


SISINIT2. PLR 1l MM 
e e o o a end 
This is the system initialization procedure for AUR 
cluster 2. XC X 


ANKE siete d oj tote xot oe teg exe ote in le ode soe oe stc te zt ae ao ae a a aS a aa abe aE a ka ae a ae ae oe 


sysinit2: vroc options (main); 


Zinclude 'sysdef.pli^; 


¿replace 


/* 


EVC TYPZ by “02 "d4; 
main */ 


call define cluster (“0002 "b4); /* must be called prior 
to creating eve’s */ 

Jak USER *xeek/ 

call create eve (TRACK IN); 

call create evc (TEACK, OUT); 

call create evc (MISSILE ORDER IN); 

call create evc (MISSILE ORDER OUT); 

call create evc (DELTA IN); 

call create evc (DELTA OUT); 


JAS Game 


call create_evc (ERB_READ); 
call create eve (ERB WRITE); 
call create sea (ERB WRITE REQUEST); 


/* distrib. map called after eventcounts have 
been created */ 


call distribution map (EVC TYPE, TRACK OUT, “29003"b4); 
/* local and remote copy of TRACK IN needed */ 
call distribution map (EVC TY?E, MISSILE ORDER IN, 
^90905'b4); 
/** local and remote copy of MISSILE ORDER IN needed */ 
call create vroc ('/fc'b4, '80*'b4, 
^2€a5'b4, “0280564, 'OO06b'b4, 
“Q439" 4, “9800 "b4, “0800 b4); 
call await ('fe'/b4, '01^'b4); 


1 
Coen esp t test teo leote tese zoe x oj eo olo ote e tento e ll ad AE a ae a ae 9k ake a a as ak ae E 
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J FEFE xe te ot otto stet oot t te le al R RE e ie a AR teg iex / 
J PERE RE RERE DE AE BESE SE FERK SR REII ote te t ote tto te tot xe ot oe oe ote oe tono xe xt xe o oot RE VE KE DR DR IR FK DP IR VR HRE PA HE XE IR DE VE E Y 
SYSDEF MIDESSTSDOPEPDT David J. BREWER 1 SEP B4 ** 


per 
yas 
pe 
pa 
pex 
/** 


=en aaa h and 
This section of code is given as a PLI file to be DL 
ZINCLUDE’d with MCORTEX user programs. ENTRY ae 
declaratíons are made for all available MCORTEX S 
functions. p". 


J FEFE RE SERE SK RE REE SE ERE RERE FE RE AK KE ae SE A OE A BE OK A RE RD E SR AEE AE AE AE EE RR A OR SOR / 
J FEAR EAE RE RE NE EE AE AEE AK AE HE IEE NE IE NE NEE AE NCIC ME IE HS IE AC NE NE BE NEALE HE NEE HE DIE nee xe SEDE RESE SEK HE OR RE E 


DECLARE 


advance ENTRY (BIT (8)), 
/* advance (event count id) */ 


await ENTPY (BIT (8), BIT (16)), 
/* await (event count id, awaited value) */ 


create evc ENTPY (83IT (8)). 
/* create evc (event count id) */ 


create proc ENTRY (BIT (8), BIT (8), 
EAS A US EBITJICUISJ. 
E E BIS), BID (16))., 


/* create proc (processor id, processor priority,*/ 
15 stack_pointer_highest, stack_sez, ip */ 
/* code seg, data seg, extra seg) ES 


create sea ENTRY (BIT (3)), 
/* create sea (sequence id) */ 


preempt ENTRY (BIT (8)), 
/* preempt (processor id) */ 


read ENTRY (BIT (@)) RETURNS (BIT (16)), 
/ read (event count id) */ 
/* RETURNS current event count */ 
UKE ENTRY (BIT (8)) RERURNS MEIT (16)), 
/* ticket (seauence id) */ 
/* RSTURNS unique ticket value */ 
define cluster ENTRY (bit (16)), 
/* define cluster (local cluster_address) */ 
distribution map ENTRI Ont eS) abit (8), bit (16)), 
/*odistribution map (distrivm@ition type, id, 
cluster addr) */ 
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add 2bi116, ENTRY (BIT(16), BITS) RETA T 
/“ ada2bit16 ( a 16b1t AF, another_16bit_#) */ 


/* RETURNS a_16bit_* + another _16bit + B 
replace 
pr =- -= A A A A A e A A A A A n n A = 
«xa CSS 
(1) USER œ / 
TRACK LN by '01'b4, 
TRACK OUT by '02^'b4, 
MISSILE ORDER IN by °@3°b4, 
MISSILE ORDER OUT by /04'b4, 
DELTA IN by '05' b4, 
DELTA CUT by 'C6'b4, 
/* (2) oY Sa E 
ERB_READ by 'fc'b4, 
ERB WRITE by /fd^b4, 
Pr a a — ——— — — —————————— 


de SEQUENCER NAMES is 


(1) USER Y 


/* (2) SYSTEM */ 
ERE WRITE REQUEST by /ff'/b4, 
+4 SHARED VARIABLE POINTERS *** 


(1) USER S 


E MESS IN 7 


block ptr value by '89000^vb4, 
xmit ptr value by “807804, 
rcv purMUdTus by '8666^*b4, 
END RESERVE by 'FFFF'b4j 


ME RE IK AK BK AE AE AE HE AE OK BK EE OS ENE OE OE OK AE OE HK IC OC NE OE BE NE AS NE HE AS OK OE OK OE NE HE NE ONE OE OK OKC OE OE i Oi EE ONE OIE SH OE TiS ok He Xe XK 
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kd A AI A fe oe ate oe A A AE e e KE HAR HE AR IA RE IR DR RE AR SE KE RETR DR KE AR AE SK AR SK XR IK R HE FR KE e XK 
DE KE AE IE RE XCI IE KER He le ote olg ote ote ote oe ote ote ote te SON fe RE te oc ote ote ol ote te vh ope e A KE RE DIK KE DR KE te ots I KE R BA KE HE SR IK AKIR XE XR HE 


RR NIS919.DCL file HEE 
dlld TT TT T 


4revlace 
Has I/O port addresses 


These values are specific to the use of the INTERLAN 
NIS391? MULTIBUS to ETHERNET interface board. Any change 
to the I/O port address of '00b90' hex (done so with a DIP 
Switch) will reauire a change to these addresses to 
reflect that change. 


a 
command register by °b@°d4, 
command status register by pi D4, 
transmit data register by “v2°b4, 
interrupt status rea by 'b5'b4, 
interrupt enable register by "DS DA, 
hizh byte _rount reg by bE 04, 
lcw byte count rez by 'bd'b4, 


/* end of I/O port addresses */ 


/* Interrupt enable status register values */ 


lisable ni3010 interrupts by “08°d4, 
ni3010 intrpts disabled by '0€'b4, 
receive block available by '04'b4, 
transmit ima done by '/96'b4, 
receive dma done by '0O7'b4, 


/* end register values */ 


/* Command Function Codes */ 


module interface loopback by '21'b4, 
internal loopback by '02'b4, 
clear_loopback by 'O3'b4, 
zo offline by '908'b4, 
zo online by 'O9^b4, 
onboard diagnostic by '"?Ca'b4, 
clr insert source by “De Db4, 
load transmit data by °23°b4, 
load and send by /29^b4, 
load group addresses by /2a^b4, 
reset by AP hA 
/* end Command Function Codes A 


ME HK HE IK E NE RA RL A ERE IE E EA AE E A AE A OK OS HE AE E AE ERE E E RE A RN A NE OIE IE KE IC RS OE AS AE OK OK 
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l ET ote e es a ze ie xe te oe si oi zi oe oi xe o Xe oe SC al ll eoe te xe le te ze ode te eoe te ote x ER xc 
Rolex joe estote atto AE H E AE e d d ex ote x tote te xo oon s sore xe texere tek ao 
p SISDEV -PLIT AELE (driver) lr 
sje esie sje xe oe oie se oe le tene tesi t se tole ot oe oie soe oe sj te sg e o sene os te e se dete oi oe te ole o aE a A ze ez a a aK a a a 


sysdev: procedure; 


/* Date: 25 NOVEMBER 1985 
Programmer: Reinhard HAEGER 


Module Function: To serve as the Ethernet Communication 
Controller Board {NI301@) device 
handler (driver). This process is 
scheduled under MCORTEX and consumes 
Ethernet Reauests Packets (ERP) 
generated by the SYSTEMSIO routine in 
LEVEL2.5RC. 

It creates a relation table that keeps 
information about the interrelationship 
between eventcounts and user shared 
lata, and uses this information for 
producing and processing Ethernet 
messages. 


This driver is the version provided by David Brewer 
modified in order to ensure system-wide data sharing. 
The Transmit Data Block and the neceivelvara PIGH E 
changed to keep 15090 bytes of data. 

New procedures Make Table and Make Messaze were added; 
ani procedure Process Packet was completely changed to 
provide cluster external user shared data exchange. 
Procedure Transmit Packet was moal Ted conc de 
flexible exact message length to the ECCB if the length 
is greater thar 6% bytes, and minimum message lenzth if 
the message is EY bytes or less. 


*/ 


¿replace 
evc_type by '20'b4, 
erb_block_len bye, 
Gerd plos enomt by 19, 
infinity by $2767; 


Zinclude “sysdef.pli'; 
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DECLARE 


1 erb(O:erb block len m1) based (block ptr), 
command bi (87, 

type name bit (8), 

name value bit (16), 

remote_addr bit (16), 


NM M M N 


1 transmit data block based (xmit ptr 


e 
2 destination address a bit (8) , 
2 destination address b bit (8), 
2 destination address c Et). 
2 destination address d bit (8), 
2 destination address e bit (82) , 
2 destination address f ny M 
2 source address a DIES E 
2 Source address b bit (e), 
2 Source address c Eit (8), 
2 Source address d pru (en. 
2 Source address e Peete E 
2 source address f soe SIS s 
2 type field a biw (8), 
2 type field b Dist te), 
2 data (1500) bust c9) 


1] receive data block based (rcv ptr), 


frame status Bit : 
null byte Dit 
frane length ITsb OAE 
frame length msb Dust 


destination address a ET 
destination aedress =) Dit 
destination add Tes S C Bit 
destination address d bit 
deStiva li onmaddpescuc bit 
destination address f Pant 


source address a bit 
Source address b bit 
source IAS Se DIt 
Source address d bit 
source address e Dit 
source address f bit 
type field a bit 
type DIEN DENS 
data(1590) bit 
cre msb bit 


crc upper middle byte DATE 
crc lower middle byte bit 
cre row Dit 


Q M NM NNM NMM NMM MM NNM MN MN MM MM N 
UU GO (D (0 (DO OW (D (D LD (D (D (D (D CD (CO (D (D Qo CO (D (D YO 


al 


e ptr pointers 
erp_vect(4) bit (8) based (e pt 
(maxabytes,bytecount) fixed bin 


1 rel tab(100), 


2 evc id bit (8), 

2 numdat fixed bin (7), 

2 data(10), 
oO point DOInTET; 
3 alen fixed bin (7) 
3 bytes fixed bin (1 
QH ELED HIH 
3 next_ín fixed bin 


(xmit_ ptr, rcv_ptryolocieept rn) pommcer, 
index fixed bin (15), 
(addr e, addr f) bit (8), 
addresses 

copy ie register bit (8), 
(cluster addr,erb write _value, AS: 
(j,k) fixed bin (15 

reg value bit (8) , 

write io port entry (bita S NDA 
read io port entry (bit (8), bit (8)) 


initialize cpu_interrupts entry, 
enable cpu _ interrupts entry, 
disable cpu interrupts entry, 


write bar entry (bit(16)); 


/* end declaration  */ 


$replace 
/* codes specific to the Intel 8259a Programmable 
Interrupt Controller PIC) m 

icwi port address by “cB d4, 
/* note that */  icw2 port address by c2 TaS 
75 icw2,icw4,*/ icw4_port_address by 'c2'b4, 
/* and ocw */ ocw port address by Ca DA 
/* use same */ 


port Madara / 


/* note: icw == eae ation 
Control 
word 


DGN ==> operational 


command 
word m 


Ce 


icwl by ME De. 


/* single PIC configuration, edge 
triggered input P/ 


icw2 by /40'b4, 


/* most sizniflcant bits of vectorinz 
byte; for an interrupt 5, 
the effective address will be 
(icw2 * interrupt #) * 4 which 
will be (40 hex * 5) * 4 = 114 hex 


po, 
icw4 by 'Of 'b4, 
/* automatic end of interrupt 
and buffered mode/master af 
ocwl by “Sf b4;3 
/* unmask interrupt 4 (bit 4), = 
E ATEO). and ier 
SA Ao) mask alb otners =/ 


/* end 8259a codes */ 
/* include constants specific to the NI3012 
board B 
¡o le Ma 
B tete t tex p ate ge oen te te xe xe t dete tete se qe see te ote te t te s oot tee eto R EEE / 
/* Main Body */ 


/* check message 
put skiv(2) list(’starting make table”); */ 


call make table; 


/* check messaze 
put skip(2) list(’make table done’); */ 


call write_io_port(interrupt enable register, 
disable ni3?¢@19 interrupts): 
call initialize_pic; 
call initialize cou interrupts; 
call read 10 port (command status register,reg value); 
call verform_ command (reset); 
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call program group_addresses; 
/* assignments to the source and destination address 
fields that will not chanze */ 


call perform command (clr insert source); 
/* NIS010 performance is enhanced in this mode */ 


unspec(block ptr) - block ptr value; 
unspec(rcv ptr) » rcv ptr value; 
unspec(xmit ptr) - xmit ptr value; 


/* make one time assiznments to transmit data block */ 


doc RA 


transmit data block.destination address a 
"029 b4; 


transmit data block.destination address b 
transmit data block.destination address c ^02 hA 
transmit data block.destination address 4 “28 D4; 
transmit_data block.source address_a "g3'b4; 
transmit data block.source address b "09 D4; 
transmit data block.source address c “60 “D4; 
transmit data block.source address d ^00 ^b4j 


Il 
H Uu W il 


/* get the local cluster address - file was 


opened in proc progran group addresses T 


get file (address) list (addr_e, addr f); 


transmit data block.source address. e = addr_e; 

transmit data block.source address f = addr f; 

cluster addr - addr e || addr. re 

put sS cg CLUSTE Cluster addr, 


Initialization Complete * aa) 
(col(15),a,b4(4).a)3 
i = “209104; 
call perform command (go online); 


/* at this point copy ie rese - EBA , but 
ie reg or NIS918€ As “actua ls 
call disable cpu interruptss 


do k = 1 to infinity; 
/* note: interruot not allowed during a 
call to MCCRTSX primitive * 


erb write value - read(ERB WRITE); 
/* In the MXTRACE version of the RTOS 
all primitive calls clear and 
set interrupts (diagnostic message 
routines), so the NI381@ interrupts 
must be disabled on entry to MXTRACE */ 
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do while (erb write value < i); 

/* busy waiting */ 

erb_ write value = read(ER3 WRITE); 

Copy ie register-receive block available; 
call write io port'inteTuüpi enable megzgister, 

receive block available): 
call enatle cpu interruvpts; 
/* if a packet has been received,this 


is when an interrupt may occur - can 
see that outbound packets are always 
favored. af 


domi = 1 to 1200; 
/* interrupt window for packets received */ 
eund O y m 
calldisavle counter pis. 
if (covy ie register = receive dma done) then 
do; 
/* receive DMA operation started, so let 
funishe E 
call enable cpu interrupts; 
do while (copy ie register - receive dma ione); 
end; 
call disable cpu Interrupts; 
Endo ift T 
Copy ie register = disable 1ió5glð interrupts; 
call write io port(interrupt enable register, 
disable ni3@1@ interruvts): 
end; /* busy */ 


/* ERB has an ERP in it, so process it */ 
/* no external interrupts (REA) until 
the ERP is consumed and the packet 
gets sent */ 
index - mod((fixed(i) - 1), erb block len); 
ISk limit 


transmit data block.destination address e- 
substr(erb(index).remote addr, 1,8); 

transmit data block.destination address f- 
substr(erb(index).remote addr, 9,8); 


/* put overlay over ERP */ 
e ptrzaddr(erbiindex).command); 


call make messaze; 
call advarce (ER8B READ): 
/* caution here !!!! 
an ADVANCE will result in a call to VPSSCEEDULER, 
which will set CPU interrupts on exit. 
It’s the reason NI3313 interruvts are disabled 
first in the Do “While loop above. */ 


Eire 


/* packet ready to go, so send it */ 
call transmit packet (bytecount); 


/* covy ie register=RBA, but not actual register */ 
call disable cgu interrupts; 


/* setting un for next ERP consumption x 
1 = add2bit16(i, “9001 Ta: 


end; /*do forever */ 
/* end main body */ 


J FRE AR EE ERE RE E SE KE A E RE HE E E E RE E E NE A BE KE KE AEE IE RE KE NC HE IE AAC A SH BE NE OK FE 218 HS HE OK AS AS AE SC SAE E ON FE A 


make table: procedure ; 


declare 
relation file, 
(di o Loe 
eof bit(8); 


oven file (relatior) stream input; 
1=95 
sof= Ø b4; 
do while (eof="3 "Db4) ; 
1=1+1; 
/* read data from relation.dat file */ 
zet -file (relation) edit(rel_ tadii).evc id; 
rel tatbíi).numdat) 
(column(5).54(2).columm(15) 990 2090 
do j=1 to (re) o tap uM numdst)s 
/* read data for all related items */ 
get file (relation) edit 
(unspec(rel tab( 
rel tab(i).data 
rel tab(i).data 
columna R A oO EM 
maxabytes-max(maxabytes, 
rel tab(i).lata(j).bytes*rel tab(i).data(j).alen); 
ends 
/* if sentinel is reached */ 
if rel tab(i).evc id - '09'b4 then 
dos 
eof="1b4; 
put skip list( “longest data aqueve at tnis cluster:’, 


i9data C 3)9polnt m 
(po lene 
(j).bytes) 

GRIT TH Dele L 2 E 


maxabytes,” bytes”); 
end; 
end; 
end make table; 
J FRE AE AR TR RAE BRE AS SK SHE NS NE THK NE HE DK DE OIE aE Ts NC oe aE aie eis ig aK Ae NM ACE ME OK OS AR OK HS HE OE SH OC IS OS IE SE aem / 
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make message: procedure ; 


declare 
dat ptr pointer, 
dat_vect(1503) bit (8) based (dat_ptr), 
(next out,.n.j) fixed (7), 
off, ,start,last,k) eoeoedqebin (is); 


/* check for evc */ 
if erp vect(1)-EVC TYPE then 
dos 
bytecount=4; 
do k=1 to 4; 
/* put eve luto Into data field */ 
transmit data block.data(k)-erp vect(k); 
end; 


/* check message 
puts. listo oos: .transmitedata block.data(1)... 
transmit data block.data(2),.^/::^ 
transmit data block.data(3),^: 
transmit data block.data(4),” 
r=1; 
AN ecc able elit "/ 
do while ((rel tab(r).evc id “= erp_vect(2)) & 
(rel tab(r).evc id == '20^*4)); 
r=r+1; 
end; 


"CE uu Bvc entry */ a 
if rel tab(r).evc id - '09't4 then 
do: 
/* for every related item */ 
do ¿j=1 to rel tabír).numdat; 
start=bytecount + 1; /* find where to put */ 
last=rel tab(r).data(j).bytes; /* how long it is */ 
bytecount=bytecount + last; /* keen track */ 
dat ptr-rel tabír).data(j).point: /*aligr datvect*/ 
next out=rel tab(r). data 1). next out; 
/* comoute offset of item in data queue */ 
offs(rel tab(r).data(j).bytes * next cut) * 1j 
/* compute next slot number to zo */ 
rel tab(r).data(j).next outzmodínext out -* 1, 
rel tab(r).data(j).a1en); 
do k=@ to (last-1); 
/* put item’s bytes into data field */ 
transmit lata block.data(k*start)-dat vect(x*off); 
end; 
end; 
end; 


qu 


/* compute total bytecount for message */ 
bytecount=bytecount + 14; 
end; 
else do; /* if not evc */ 
end; 
end make messaze; 


J SEXE Slt so sies oe tede ote ad HE CEE IE AR aK AE RCE RE BRS NE HE FE NE A a A RR REO / 
initialize pic: procedure; 


DECLARE 
write io port entry (bit (B) DIMUS NN 
Call write io _vort (icwl port_address,icwl) 
call write io sort (icw2 port _address,icw2) 
( 
( ; 


Call write io port (icw4dpontaddd Desc 
call write io port (ocw port address,ocwl1) 


end Inbltla ZEE 


J PEPE HR AR BR RE ME HEAR AE BENE AEDS EE EAS PETER SIE SK E IINE AE SE RE SK E NIE RAE PR FK SE RE RER KOE / 
perform_commard: procedure (command); 


DECLARE 
command bit (8 
reg value bit 
srf bit (8) 
write 3o port entry (mio A A 
read io port entry (bit (8) , bit (8) ); 


la] 


srt NE Cena, 
call write io port (command rezister,command); 
do while ((srf & '01'54) DTE 
Call read io port (interruot status reg, srf); 
end;  /* do while */ 
call read io port (command status register, reg value); 
if (reg value ? 'Q1'b4) then 
do: 
/* not (SUCCESS or SUCCESS with Retries) */ 
put skip edit (°*** ETHERNET Board Failure ***^) 
(col(22),a); 
/* when this occurs, run the diagnostic 
routine T3810/Cx, where x is the 
current cluster number */ 
ston; 
end; /* itd */ 


end perform commands 


c 


J EFE RERE SESE RE IRAK FE AERE RE SEE DS FE RE AE SK K ERA E EAE SK K S RERE SE SE FOK AE SR K FEK SK EN A AER 


d 


ARA / 


fac 


tramsmit packets proeedwre (byte count) extennal: 


DECLARE 
pDEDCInter. 
Prue count fixed bin (15) , 
bytevector(2) bit (8) based (v), 
ert bit (8) , 
reg value bit (8) , 


AS a MANDO US MUS E). 
read io port entry (bit (3), bit (3) ), 
enable cpu interrupts entry, 
gn sablBPccpusSInterpuDts EY a 


write_bar entry (bit(16)); 


/* begin */ 
Ser = "04; 


call write bar (xmit ptr value); 


/* if messaze lonzer than minimum size */ 
if (byte count > 6@) then 
do; 

p=addr(byte count); 


/* call with exact bytecount */ 
gaUwrite io port(hieh byte covit ree, bytevector(2)):; 
call write io port(low byte count rez,bytevector(1)); 
end; 


/* if message is not longer than minimum size */ 
else do; 

/* call with minimum tytecount of 60 */ 
call write io port(higeh byte count rez,'20 b4); 
call write io port(low byte count reg, “3c b4); 
end; 


cooy ie register - transmit dma done; 

call write io port(interrupt enable register, 
transmit dma done); 

aqui eEnaple cpu interrupts, 


io while (copy ie register = transmit dma done); 
end; /* loop until the interrupt handler 
takes care of the TDD interruvot - 
it sets copy_ie_register = iBA */ 
call perform command (1oad and send); 
put skip list('transmittinz'); 
end transmit pecket; 


[FEAR AE EEE NE HE AE AE AR AE ENE NE RNE ES EE EE HR AK HE A dl 


79 


HL interrupt handler: procedure external; 


/* This routine is called from the low level 
8086 assembly language interrupt routine */ 


DECLARE 
write io port entry (bit (8), bit (8) J5 
read 1o port entry (bit (E) , bit (8) ), 
enable cgu interrupts entry, 


disable _ cpu 1 tenues entry, 
write_bar entry (bit(16)); 


/* begin mf 


call write io port(interrupt enable register, 
disable ni3819 interruots); 


if (copy_ie_register = receive block_available) then 
do; 


call write bar (rcv ptr value); x 
call write io port(high byte count reg, Boc pd 
call write io port(1ow byte count rez,'/f2'/54); 


/* initiate receive DMA */ 


copy _ 1e roc TS ten TEC CEIvVveminTe Toren 
call write io port(interrupt enable register, 


receive dma done); 


end; /* do */ 
else 
if (copy_ie register = receive dma done) then 
do: 
call process packet; 
copy ie register = receive block available; 
call write io port(interrupt enable register, 
receive block available); 
ends /* if then) 
else 
if (copy ie register - transmit dma done) then 
dos 


Copy le regzisUtspr ITH 


* NI3910 interrupts disabled on entry */ 
end; A nen dao. 


end HL interruppi thandienr; 


[AR FE IE FR AEE AS ESE IE EAC FS BE SHE ACE BE SE SK BES IE OIC OK OS SIS OEE OIE SIS AE SEE KE TIE AE 38 AEC TIE AEE EE HE AAS TESS BE OS OS OO IS HE AE OK OE 


BC 


process packet: procedures 
DECLARE 


evcid bit (8), 
localeevc value bit (ie). 
(da EDUP. p) pointer, 
remote evc value bit (16) based (p), 
dat vect(1590) bit (8) based (dev ptr), 
Mort) start, last, %k) fixed bin (15), 
wert 1855r,.,)) taxed Spam (7); 
put skip list('receivine”); 
Zo check for evc */ 
EuEDeceive data block.datall)=8wc_type then 
dos 
p = addr(receive data block.data(3)); 
evcid=receive data block.data(2); 
local evc value - reed(evcid); 
1f local evc value 4 remote evc value then 
105 
r-1; 


IAE CEN oO MESS 
do while ((rel tab(r).evc id = evcid) & 
(rel tab(r).evc id = “562 "b4)); 

r=r+1; 

end; 

if rel_tab(r).evc id = “20 b4 then 

do; 
bytecount=4;  /* jump over evc info */ 


do j=1 to rel tab(r).numdat; 

Stant- bytecount l; e Compute Start of item * 
last rol tanri data. D) by eS; /* and leneth * 
byteccunt=bytecount+last; /* and item’s end * 
next insrel tabí(r).data(j).next in; 

/* compute offset in data aueue */ 
off=(last*next_in) + 1; 

/“"CioOmbute netos mot nude Lo Rud *J/ 

rel tab(r).data(j).next_in=modinext intl, 

rel tab(r).data(j).a1en); 


"a e 


datwoltr=rel tab cda) pom) /* align datvect*/ 
do k=2 to (last-1); 


/* put item bytes into data aveue */ 
dat vect(ktoff)=receive data block.data(x+start); 
ends 
end; 
end; 
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/ update local evc value */ 
do while (local evc value € remote evc value); 


call advance (evcid); 
local evc value - add2biti6(local evc value,'?0221^'b54); 
end; 
end; 


else do; /* if not evc */ 
end; 


call o a 
end; 


end process packet; 


[RFE ERE HE testet sj tese ote toot t ite siet oi se te tees x sj xe RR AR / 


program group addresses: procedure, 
DECLARE 


1 group addr(42) based (rout 
"nc 2rouo field a Dat 
mc group. Moda b bit 
mc_2zroup_ field G Dit 
METE TOLDO pierin E DIT 
me erop e ae Dit 
mc group field f Dit 


PO M W M CO N 
> TA O 
vw 00 00 (p 00] 


DECLARE 


CO HRE ENS 

(field e, field f) bit (8), 

bit 8 groups bit (3) based (p), 
(i,num groups.egroups times 6) fixed bin (7); 
unsoec(aroup ptr) - xmit ptr valve; 

open file (address) stream input; 

get file (address) list (num groups); 

do i = 1 to num groups; 


group addr(i).mc group field a - '03'b4j 
zroup addr(i).mc group field b - '00^vb4; 
grouo addr i mme zroup field ce UM 
eroup_addr(i).mc_group_field d = Vo Ta; 


8z 


Bet Mle (address) list (field se, field f); 
group_addr(i).mc_grouv_field e = field e; 
EBrou» addr(i).mc group fend f = field f; 


end; /* do i */ 


Potted isable cpu_interrupts; 
call write bar (xmit ptr value); 
call write io port(high byte count reg, '20'b4); 
groups _ times 6 = 6 * num eroups; 
p = addr (groups times €); 
co write lo port(low byte count ree, bit 8 ¿roups);, 
copy _ ie register = transmit_dma done; 
Gall write i0 port{interrupt enable register, 
transmit dma done); 
pe enable cpu interruvbts; 
do while (copy ie register = transmit dma dore); 
end; /* loop until the interrupt handle» 
Cakes a Cdr oO et Ce! DETIENE 
it sets COPY IE REG = gBA */ 


call perform_command(load_group_addresses); 


end program group eddresses; 


f PEAR AE AE NEE R N NEE E REN RNE A E AS HERE SE IE CE AG OE AE AK FE AE AE AE AE TK OE AC TR IEE TE AS / 


end; /* system device handler and packet processor 
(driver) */ 


NE HK DHE OE AE BS AE AE HE NUN CIR NO E RANIA TE AE RNE AA ARA ERE RR Ft 
BE NE HE HE TK NE HE AC LK DK HE DE DK AK DIS IEE AK BIS NK E NE REDE RE E NONE RE NE NE NE ER A NL EOR E NE NINE RS 


E ASMROUT 286 TITE O 


' * ' , 
A A A e e e A AE R A Bye Hye oe Aye Sie res ye DiS A E Dye Bye oye HE A A aye oe ope 


he ale o ye ate ale ale 
œ ZX NA AA AA AA AA 


EN 
4 
IN 
AA 
a 
` 
as 
i 


extrn hl interrupt handler : far 


OCT orite 10 port 

public read io port 

vublic write_bar 

e TET 6 126 cpu interrupts 
públic enable cpu interruptis 


public disadle cpu interrupts 
v x eode og se te sic ote ote de sten ote xe ot ote XE A AE te s RK A DIE REAR A A Sl E RR R 
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write_ 


. 
9 


.. 99 q 99 wo we 


10 port: 


Parameter Passing Specification: 


parameter 1 


parameter 2 


entry 
<port address> 


<value to be outputted> 


exit 


<unchaneed> 


<unchanged> 


dseg 
port_address ign 1 
cseg 
push bx! push si! vush dx! push ax 
mov si, [bx] 
mov al, [si] 
mov portoddd Pessoa 
mov si, 207] 
mov al, [si] 
mov “dl Dort address 
mov ah, ðh 
out dx, al 
pop ax! pop dx! poo si!l bcp DI 
ret 
EEL E E E EEE E-E E E a E st nto x E EE E E-E EET E EEE EEEE E EE OE EE EEE EE E E 
read io port: 
> Parameter Passing Specification 
c 
; entry exit 
; 
>; parameter 1 «port address» <unchaneed> 
, 


parameter 2 


cseg 
push 
mov 
mov 
mov 
mov 
mov 
mov 
in 
mov 
pon 
ret 


<meaningless> 


bX! push si! rushodx push 


si, mine 

al, [si] 

port address. Tal 
Se bl 

dl, port address 
dh, €@nh 

Brem dx 

[si], al 


aX! DoD dX! pop Si! Popor! 


25 S 38 


(register value; 


x 


ARLLLILILLLLLLLLLLLLLLLLLLLLLLLLLLLELLLLLLLLLLLLLLLLLLDLLLLLLLLILD: 
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yriwe bar: 


Parameter Passing Specification 


parameter 1 (and only): the address of the data blocx 
to Le transmitted or received. 


dseg 

SEED DESDE equ @bd9h 
h bar port equ Øbah 
1 baw port equ bbh 
Done copy rb ID 
temp es TW 1 

Coser 


This module computes a 24 bit address from a 32 bit 
address - actuallv it’s a combination of the $S 
register and the IP passed via a parameter list. 


=e we we 


push bx! push ax! bush cx! vush es! push dz! push si 


mov ax,  0800h s shared memory s2eament 
mov es, dx 
mov temp_es, es 
mov dx, es 
mov si, [bx] 
mov ax, [si] 
mov cl, 12 
shrad Ir sch 
mov temp e byte, d1 
mov dx, temp. es 
mov cl, 4 
SEI. cl 
adda taz, (dx 
jne no add 

aod l: IC e noe De 

ao add: outs i Dar Dont. al 
mov al, ah 
QUAN bar port, al 
mov al, temp e byte 
QUe Dar port, al 
popsi! POD dX! pop pop Gx! poo ax! pon Dx 
ret 


o REE HE HE AE NC I EE AR RE HE OE OE IK AE HE HS HE AE OIE BE OE IE OE OE OK OIE OE SE AK AE RE IE AE NE AE OK OE RE SE ONS I OK OS OR OE AS OE AS EK OK OE OK OE OK 
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initialize cpu interrupts: 


s Module Interface Specification: 


H Caller: 


; Parameters: 


initmodule cseg common 


org 114h 


Ethertest(PL/I) Procedure 


NONE 


into SEN rw 1 

int5 segment rw 1 

cseg 

push bx 

push ax 

mov bx, offset interrupt handler 
mov ax, Ø : 
push ds 

VO VIAS dw 

Move (dS *2nto offset. ux 

nov DX NECS 

mova ds:int3 segment, DM 

pop ds 

pop ax 

poc DX 

St 

ret 


§ MEME AE REN E AE NE A ER RS RE A E NE DE K E LS ARE CTA E E RCNE NE ERE AE ACE RE IE AK FE IK E IK OK A IR IA ORAE 


enable cpu _ interrupts: 


s Module Interface Specification: 


; Caller: 

; Parameters: 
sti 
ret 


Ethertest(PL/I) Procedure 


NONE 
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disen lefcpa interrupts: 


; Module Interface Specification: 


; Caller: Ethertest(PL/I) Procedure 
b Parameters: none 

cr 

ret 


y FEE DE IK AE AK AE FR AE HE EAE OE SE IKE OK IS AL AE NE AC OK OK AC BNE AE HE AS AE NEE EAC IE A AK AE BH AE AE IE OK HE FE AC TE OK AK HE OK ARK OR OE MK K 


interrupt handler: 


;: IP, CS, and flags are already on stack 
> save all other registers 


push ax 

push bx 

push cx 

push dx 

push si 

push di 

push bp 

pusm ds 

push es 

call hl interrupt handler 
s high level source routine 
s In Ethertest Module (PL/I) 

s restore registers 


pop es 
pop ds 
pop bp 
pop a? 
pop si 
poo dx 
POD CX 
pop bx 
pop ax 
sti 
iret 


ena 


$ ME AEA HE HEE AC RE AC HE HE EE ERE S RN E EE NE IE RE AERE E RE NE SK SFK 31 THE Si AE K IK IE HEE HE DIS AE IE OS OE AK IE E RE S SE K RE RE NE S RE 
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OREA il a E A CR E KE OK 
O RAEE RN a DÍ a ll al a HE AE AK SESK K AE S SEK K Y 
5% GATEMOD / GATETRC File GATEM/T.a86 BREWER 1 SEP 84 * 


" A11 calls are made to the GATEXKXEEPEP in LEVEL2 of the * 
* OS. The address of the GATEKEYDPER must be siven below.* 


It’s purpose is to allow the addition of two unsizned * 


/ 
7 
* The ADDZBITIG function does not maxe calls M =*/ 
S / 
* 16 bit numters from PL/I vrograms. " 

/ 


MEN ————————À— A —Á— —————Á— P mr = r m u 
;* This module is given to the user in obj form to link m 
$ with his initial and process modules. Any changes to */ 
¡“ user services available from the OS must be reflected */ 
¡* here. In this way the user need not be concerned with */ 
:* actual GATEKEEPER services codes. Two lines of code x / 
¡* are contained in conditional assembly statements and * / 
;* control the output to be GATEMOD or GATETRO ere 
:* on the value of GATEMOD at the code start. n 
e e A A RU A 
;* This module reconciles parameter passing anomalies A 
:* between MCOETEX (written in PL/M) and user prozrams */ 
;* (written in PL/I). x / 
$$ «—————-————-———-————————-—-—-—--------—--—----------------2------*X*/f 
H 

; 

, 


DSEG 


GATEMOD FOU Ø ¡%*** SET TO ZERO FOR GATETAC 
sex SET TO ONF FOR GATEMOD 
PUBLIC ADVANCE xx THESE DECLARATIONS MAKE THE 
PUBLIC AWAIT sk GATEKEEPER FUNCTIONS VISIBLE 
PUBLIC CREATE EVC 3*** TO EXTERNAL PROCESSES 
PUBLIC CREATE PROC , 
PUBLIC CREATE SEQ 
PUBLIC PREEMPT 
PUBLIC READ 
PUBLIC TICKET 
PUBLIC DEFINE CLUSTER 
PUBLIC DISTRIBUTION MAP 
PUBLIC ADD2BI716 


AWAIT IND EQU C ERRE THESE APE THE IDENTIFICATION 
ADVANCE IND FOU 1 ;*** CODES RECOGNIZED EY THE 
CREATE EVC_IND EQU 2 se GATEKEEPER IN LEVEL II CF 


CREATE SEQ IND FOU 3 yx MCORTEX 
TICKET IND FOU 4 

READ_IND EQU 5 

CREATE PROC_IND EQU 6 

PREEMPT IND EQU 7 

DEFINE CLUSTER IND EQU 8 
DISTRIBUTION MAP IND EQU 9 
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IF GATEMOD 
GATEKEZPER IP DW 2236H 
GATEKEEPER CS DW 2BADA 


ELSE 

GATEKEEPER IP DW ØØ68E ODE M = ee 
GATEKEEPER CS DW 2B4CH | 4448 2 HEH (——-———-—-—-—-2---2-- 
ENDIF 


GATEKEEPER EOU DWORD PTR GATEKEEPER IP 


CSEG 


BEES WAIT Oe RATT AA A TO AS ATT APR 


AWAIT: 

PUSH ES 

MOV SI,2[BX] ¿SI <-—- PNE TO COUNT AWAITED 
MOV BX, [BX] ;BX <-- PNT TO NAME OF EVENT 
MOV AL, AWAIT IND 

PUSH AX FN c AWAIT. INDICATOR 

MOV AL, [BX] 

PUSH AX ¡BYT <-- NAME OF EVENT 

MOV AX,(SI] ;AX <-- COUNT AWAITED 

PUSH AX SWORDS <-- COUNT AWAITED 
PUSH AX ;PTR SEG <-- UNUSED WORD 
PUSH AX ;PTR OFFSET 4--UNUSZD WORD 
CALLF GATEKEEPER 

POP ES 

RET 


pe ADVANCE *** ADVANCE *** ADVANCE #7 ADVANCE FERRO / 


ADVANCE: 
PUSH ES 

MOV BX, [BX] >BX <-- PTR TO NAME OF EVENT 
MOV AL,ADVANCE IND 

PUSH AX ;N <-- ADVANCE INDICATER 
MOV AL, [BX] 

PUSH AX ¡BYT <-- NAME OF EVENT 
PUSH AX ¡WORDS <-- UNUSED WORD 
PUSE AX ;PTR SEG <-- UNUSED WORD 
PUSH AX ;PTR OFFSET <--UNUSED WORD 
CALLF GATEKEEPER 

POP ES 

RET 


29 


FS CREATE _EVC *“** CREATE_EVC TT 


CREATE EVC: 


PUSH ES 
MOV BX, [BX] "BX <-- PTR TO NAME OF EVENT 
MOV AL,CREATE EVC_IND 

PUSH AX sN <-- CREATE EVC INDICATOR 
MOV AL, [BX] 

PUSH AX “BYT <-- NAME OF EVENT 

PUSH AX ¡WORDS <-- UNUSED WORD 

PUSH AX ¡PTR_SEG <-- UNUSED WORD 
PUSH AX ¡PTR_OFFSET «--UNUSED WORD 
CALLF GATEKEEPER 

POP ES 

RET 


park CREATE SEQ *** CREATE SEQ *** CREATE SEQ vests / 


CREATE SEQ: 
PUSH ES 

MOV BX, [BX] SBX <—-- PTR TO NAME OF SEQ 
MOV AL.CREATE SEQ IND 

PUSH AX sN €X-- CREATE SEQ INDICATSR 
MOV AL, [BX] 

PUSH AX ;sBYT <-- NAME OF SEQ 

PUSH AX SWORDS <-- UNUSED WORD 
PUSE AX ¡PTR_SEG <-- UNUSED WORD 
PUSH AX ¡PTR_OFFSET <--UNUSED WORD 
CALLF GATEKEEPER 

POP ES 

INT 


EFE TICKET *** TIOKET s€*e*v TICKET C* Ti Chey Src. LLL 


TICKET: 
PUSH ES 

PUSE ES ; TICKET NUMBEF DUMMY STORAGE 

MOV CX,SP ¡POINTER TO TICKET NUMBER 

MOV BX, [BX] ;BX <-- PTR TO TICKET NAME 

MOV AL, TICKET IND 

PUSH AX SN <-— TICKET INDICATER 

MOV AL, (3X] 

PUSH AX ;BYT «-- TICKET NAME 

PUSH AX ¡WORDS <-- UNUSED WORD 

PUSH SS :PTR SEG «-- TICKET NUMBE? SEG 
PUSE CX ;PTR OFFSET <-- TICKET NUMBER POINTER 


9e 


CALLF GATEXEEPER 

POP BX ;sRETRIEVE TICKET NUMBER 
EIN YS 

RET 


a Re RR READ X**UOBEADGSS READ *** READ 26% REED “ee / 


READ: 

PUSH ES 

PUSH ES ¡EVENT COUNT DUMMY STORAGE 

MOV CX,SD ¡POINTER TO EVENT COUNT 

MOV BX. [BX] ¡BX <-- PTR TO EVENT NAME 

MOV AL.READ IND 

PUSE AX ¡N <-- READ INDICATZ3R 

MOV AL,[3X] 

PUSH AX ;3YT <-- EVANT NAME 

PUSH AX ;BYT <-- UNUSED WORD 

PUSH SS :PT8 SEG <-- EVENT COUNT SEGMENT 
PUSH CX ;PTR OFFSET «--EVENT COUNT POINTE? 
CALLF GATEKEEPER 

POP BX ¡RETRIEVE EVENT COUNT 

POP ES 

RET 


see CREATE PROC *** CREATE PROC +t CREATE PROC sesos / 


CREATE PROC: 


PUSH = 

MOV SI,14[BX] ¡SI <-- PTR TO PROCESS ES 

PUSH WOPD PTR [SI] ¿STACK PROCESS ES 

Mow ST,12[5X] ;SI <-- PTR TO PROCESS DS 

PUSH WORD PTR [ST] ¡STACK PROCZSS DS 

MOV SI. 12[BX] ¿SI <-- PTR TO PROCESS CS 

PUSH WORD PTR [SI] STACK PROCESS CS 

MOV SI, 3[3X] ¿SI <-- PTR TO PROCESS I? 

PUSH WORD PTE (SI! sST3CK PPOCESS TP 

MOV SI, 6[BX] ¿SI <-- PTR TO PROCESS SS 

PUSH WORD PTR [SI] ¡STACK PROCESS SS 

MOV SI, 4[3X) ¿SI <-- PTR TO PROCESS SP 

PUSH WORD PTR [SI] ¡STACK PROCESS SD 

MOV SI,2[RX] ;SI <-- PTR TO PROCESS PRIORITY 
MOV EUN ¿GET PROCESS PRIORITY 

MOV SI,[BX ¿SI <-- PTR TO PROCESS ID 

MOV AL,(SI] ¡GET PROCESS ID 

PUSH AX sSTACK PPOCESS PFIORITY AND ID 
MOV CX,SP POM Rohe OR DATs 


MOV AL,CREATE PROC_IND 


PUSE 
PUSE 
PUSH 
DUSA 
EAS 


AX 
AX 
AX 
SS 
CX 


CALLF GATEKEEPER 
ADDS S E14 
POP ES 


+N <-- CREATE PROCESS IND 

s, BYT <-= UNUSED WORD 

SWORDS <-— UNUSEDAWORD 

¡PROC_PTR SEGMENT <== STACK 
;PROC PTR OFFSET <= DEE O TN E 


"REMOVE STACKED DATA 


e PREEMPT *** PREEMPT sS PREEMPT ““* PREDMPIOSSS QM 


PRSEMPT: 


PUSH 


ES 


MOV BX, [BX] 


MOV AL,PREEMPT IND 


PUSE 


AX 


MOV AL.[BX] 


PUSE 


AX 


EU nn 
PIU 


PESE 


AX 


CALLF GATEKEEPER 
POP ES 


uds 


BX <== PTR TO NAME OF Mea aes 
iN <~— PREEMPT INDICA 


SBYTE <-- PREEMPT PROCESS NAME 
¡WORDS <-- UNUSED WORD 
¡PTR_SEG <-- UNUSED WORD 
¡PTR_OFFSET <-- UNUSED WORD 


DEFINE CLUSTSR *** DEFINE CLUSTER ** rA 


DEFINE CLUSTER: 


PUSE 
MOV 
MOV 
PUSE 
PUSH 
PUSE 


ES 
BX wB] 


; BX <-— PTR TO LOCALSCLUSTSRSADDR 


AL, DEFINE CLUST*R IND 


AX 
AX 
WORD PTP [BX] 


US TEX 


PUSE 


AX 


CALLF GATEKEEPER 


POR 
RET 


ES 


SN <-— DEFINE CLUSTER IND 
;3YT <-- UNUSED WORD 

¡WORDS <-- LOCALSCLUSTERSADDE 
¡PTR_S2G <-- UNUSED WCRD 
¡PTR_OFYFSET <-- UNUSED WORD 


$ RR 


DISTR 


PUSH 
MOV 
PUSH 
MCV 
MOV 
MOV 
MOV 
PUSH 
MOV 
MOV 
PUSH 
PUSE 
PUSH 
KUSE 
PUSH 


DISTRIBUTION MAP 
IBUTION MAP: 


ES 
S TEX] 
WORD PTR [SI] 
Sige [5X] 

NES ST! 

SI, [BX] 

A 

AX 

S SP 


TRES DISTRISUTON MA? "ape d 


¡SI <--= PTR TC GROUP ADDRESS 
"STACAATES CHOUP ADDRESS 
A TOA Or A TIE 


¿SI <-- PTR TO MAP TYPE 
SAL <-- MAP_TYPE 
¡STACK ID AND MAP TYPE 


¿POINTER TO DATA 


AE, DISTRIBUTION MAP IND 


AX 
AX 
AX 
SS 
CX 


CALLF GATEXTEPER 


ADD 
POP 
RET 


SP, 4 
pS 


;N «-- DISTRIB MAP? IND 

;RYT <-- UNUSED WORD 

NORD <-- UNUSED WORD 

;MAP PTR SEG <-- SS 

¡MAP ZPTROOFFSET <-— DATA PTR 


MAD aL LE ADDZ.ETLO ASADA ALO € ADDZELTIG *”/ 


ADD2BIT16: 


MOV SI,[3X] 
MOV BX,2(PX] 
MOV BX, [BX] 
ADD BX,[SI]} 


RST 


51. <= MO Lo )+1 


¡BUS RADO SEE 16 )+2 
yok CET ec 
BARR LAO) AABT (16) 2 


; ERO BE AK AE HK AE AC AK AK AE ERE AL AE ARCA REA RENE RO AE ACE NI ARE AENA EEN EE REN REN NA EA R 
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APPENDIX E 
THE DEMONSTRATION PROGRAM 


The demonstration program is a combination of four 
modules that simulate gathering and processing track 
information and calculating direction and launcher number 
for missile launchers. 

It was not a goal of this demonstration program to 


provide a valid algorithm for a real system, but rather to 


show the synchronization of distributed asynchronous 
processes with different execution times, working with 
different length shared data queues, that reside at 
different addresses at different clusters. Another goal was 


to demonstrate the systems ability for processes working in 
shared buffers, or with local copies of shared data items, 
or a combination of both. 

Process trkdetec simulates the track detection by 
producing x, y, and z track data. The track information is 
put into the 50 slot queue TRACK. 

Process trkrprt simulates the track movement calculation 
by producing dx, dy, and dz values from the comparison of 
two consecutive track informations. It consumes TRACK data 
and puts delta information into the 20 slot queue DELTA. 

Process mslorder simulates the missile launcher 
direction calculation. It consumes TRACK data and DELTA data 
and combines these into simulated azimuth and elevation 
information and assigns a launcher. These data are put into 
the 50 slot queue MISSILE ORDER. 

Process msltrain simulates the missile launcher training 
by consuming MISSILE ORDER data and displaying launcher 
number, launch number, azimuth, and elevation. 

For demonstration purposes each process displays its 


calculated values and its status (e.g. waiting, going, done, 
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queue full, etc.) 
The program was successfully run in three different 


constellations: 


1.) Process trkdetec and process msltrain multiplexed on 
one  SBC, and process trkrprt and process mslorder 


multiplexed on a second SBC in the same cluster (cluster 2). 


2.) Process trkdetec and process msltrain multiplexed on 
one SBC in cluster l, and process trkrprt and process 


mslorder multiplexed on one SBC in cluster 2. 


3.) Process trkdetec on one SBC and process msltrain on 
another SBC in cluster l, and process trkrprt on one SBC and 


Process mslorder on another SBC in cluster 2. 


The Link86 Input option was used to link cluinit, 
trkdetec, msltrain, and gatemod into CIUSERS; eA E e 
trkrprt, mslorder, and gatemod into C2USERS TOT 
constellation 1.) and 2.). 


For constellation 3.) following linkage was done: 
trkdinit, trkdetec, and gatemod into TRACKER, 
msltinit, msltrain, and gatemod into MSLREACT, 
trkrinit, trkrprt , and gatemod into REPORTER, and 
msloinit, mslorder, and gatemod into MSLORD. 


This demonstration program, even though done by one 
person, was built under a simulated lead programmer team 
policy. The lead programmer provided the system-wide shared 
data declaration, the system definitions, the cluster 
Specific relation data, pointer assignments, and systems 
initialization. The lead programmer also decided about the 
distribution of the different modules over the system. 

The application programmers built their modules 


including the share.dcl and pointer.ass files. 


95 


AE HK AK HK HS HK SK NE AC RE AE AK HK AC AK AE AK IK AS AK AK AK AK E E A RRE E RR AE AE AE ERE AE AK OIE OK OS KS AE HS HE AE RNE ALE A A IE OE AE AE OK OK 
AK BE OK HE HK AE OE OK OK AK AE BS IE SHE OK OK OK AE HE HE OE IE HE OK ER NC AE KE AE NEE AE OK SHEIK OK SR OK AK HS IIE NS OK OE SHE AK OK OE HE RE ONE HSK OK OK 


E C1USERS.INP file WR 

MOX ce ee ca a III LE Ax x 

*** This file is used to link user initialization, "nm 

*** user process msltrain, user process trkdetec, and id 

*** gatemodule into C1USERS.CMD, the executable file We 

TE multiplexine the two user processes on one SBC. acon 
ote slg she sfe ake ake e zie te ate ai Ske at se ste ate ote s npe oe te obe e ade sje ote oie ae XE e e a zie ote ae ctc o ote sje I a ICS Se aie OE aK af a ale ole ak he oe oe he aie ak 

clusers = 

ciuinit [codefabd[(439]] ,datafab[800]} ,m(21,ad [82] ]  mav [a111]. 

trkdetec, 

msltrair, 

gatemod 


t 


HE RE OIE OIE E NESK S IELE KE KERE KEDE AK AE A AE LE IEE IKE ES IE SE OK A SHE he SECRECY ON OIE AK RC OS OKC ic OE aC OS OEE Oe OC OK fe ale ote Se ote ote Me 
Sie ok aig Oc ae ae aft le aja ode ad ade a ae e E ae al OK aK Bea BE HK EK Oe ae OK OK AE DHE IE OI ae Sie afc OK afc BIC af a fe ate aft afk a a e loe ld ake aie aie a e as 


nt CIUINIT. PLI file AURA 
AMAA LI eem m m um mum um i e em m mem wm ux "x Cr E IE E e» MP MEM CE es ee ee QAO E sue 
“ex This is the Mertializationeprocedure Son on 
** multiplexed user constellation. XC 


xc se xt a e Xo x sext te o xe sog xtate zt ote te xo o ste zie o t tx SK ote tote tex le fC eC OKC aK DE BK SEK ae ae st ye ic aie SHE aE aE ole ie mK 


ci users init: procedure options (main); 


Zinclude 'sysdef.pli'; 


/* begin */ 


ATA 
call create proc (C5 b4, fc Dn 
^Q8eb'b4, “0800 “b4, “8229 "dD4, 
“Bg430"b4, “0800 "b4, “2800 "D4); 
x ms itragm 
call create proc ('06'b4, "fc't4, 
^Qa0b'/b4, '?OBUCO'b4, 'O205*b4, 
“0439 “b4, '2800'b4, “0892 "b4); 
call await ('fe'b4, '01'b4); 
end cl users irit; 


RAKE KE AE RIK K IE SKIK NE AE AE NE A RE FR IK AE REN NE E AE AE IEA SK SR IK E E IRE NENE NE AE OK AS BE IK AE RRE A RE AE A OK 
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XC OK RE Re ASAE HE CAE Xe ae OK EE OK HEE K ie Sear Os tees SS Ook es ORES YES CUS ES Eee 
SEK RE IK S DR SIE ENE SIE DE S Si DE KE SE IK IE AE DEE STK DE SIE AIK ME ae KC CAE TE UK DS ME SHE IE NC Oe OK E EO HE NE IE SK TIE SE RE SE SE RE OK SE XE 


pai TRACKER.INP file ae 
Fe ar ceed em eet p 
*** This file is used to link trkdetec initialization, ren 
*** user process trkdetec, and gatemodule into. xm 
SES TRACKER.CMD, the executable file for user process Aon 
"* £rkdetec in the non-multiplemed constellation. s 


BR AE HE OE HEE OIE SE OK ES EC KEE ME AE DERE A AR RE RAR RE SE E DE KE DR DK KR RE RE IK EE EK IE AK IK AE AE AK AE AE DE OK AK IE E 


tracker = 
trkdinit [code [(ab[439]] datal[lab[8228]),m[0) ¡ai[22))] ,map(a111] 
trkietec, 


gatemod 
XC AE RE AE AS HE NE IK NE I Bye HS IS DE DS AE NE NE HC HK IC BS HE AK DE HK AE SI SHE TIS BS BIS RE IE OI IK OE OI EE OR SK SIS AE OH RA A E E E OR E K A EA 
HE AE IK HE IE DK BK AOI IO NE I IK IK K RE NE RE REAK K E NE A A NE AE A XE OK I AK SE OK EE OS EDK OK A 
uo TRERDINIT.PLI file nng 
SETT a ee de | a e i e e ee ee ee ee ee O l A AAA A AS RX At 3K 38 
“** This is the initialization procedure for user ono 
*** Drocess trkietec in the non-nultiplexed amor 
== constellation. me 
DK E REE A NAAA ANT AER A PII COMMA E E T E ES 
OK BE IK BY NAAA ANA ATA AE AE A AN S SSR SK S NE ACA HE OR IK IRIE LE A A 


dente procedure options (main); 
include “sysdef.vli'; 


F begir e] 
call create proc Gb 54, 'fc'b4, 
^üg5d/b4, '2098020'b4, '0023^'b4, 
^Q4359/b4, 'CBOO'ba, 'CBOQ v4) 
call await ( Te b4, 31 b4): 


end trkdinit; 


xe X JE xx XC XE REY RE OAK SHE NEIE S IK A AE REIR REAK D DE KE oo jet o SÓ JE NR DA E A RA A A O A XX 
H oe moms AEREAS NR NE K 
ak at AE MSLREACT.INP file mE 
VPE T ge ee ee ci, HAS 
Pe This file is used to link nsltrain initialization, S 
*** user process msltrain, and zatemodule into sunt 


xxs MSLREACT.CMD, the executable file for user process E 


*** msltrain in the non-multiplexed corstellation. 
3k cte she ste zie zo ate ate ote ole Bie sje et oto e e oto de ne zie ze ote ote sje te eoe x ate ste ste oe o ooo ce e a ak alt ofe af aie ote afc fs exem x 


% 4 


mslreact = 

msltinit [code({ab(439]],datafabd[83G] ,n[{G].ad[82]],man[alll]]. 
msltrain, 

eatemod 
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MEE HE AE BK HEHE RE HAE AK IKE NC AS HS AE BK AE AE AE AE AE AE AL AK AK HE AE HE AE HE AK AE AE AK AK HE AE AE AK AK HK AE AE OH IK OK OS AE SE A AR A E AE 
ME AE AE AE AE NE HK AE HEE HE A AE IK AE HE RE HE AE NE HK OE AE IKE AE IE KE Ae AS HE AE RAE NE AE HC HE E HE THE RC Ne IE AE Oe NE TE A AE ate NE Ne Ae Os OK ie Die OK oe BIE 


edito: MSLTINIT.PLI file LI 
ICI MEME NUMEN Lu EE o A e LL A V Xx 
*¥* This is the initialization procedure for user AR 

**'* process msltrain in the non-multiplexed | a 
xxx constellation. HE HE XE 


ka 
ARENA RNE E REA AE NA ENE E AR E KS HE ENE MER KK EE AE SE AE SRE DIE AS TENE NS NE NE BK SEAS MEE REE NL E RE E UEM 


msitinit: procedure options (main); 


vinclude /sysdef.vli’; 


/* begin */ 


call create proc o2 0E e 
^0825/b4, J&J d4, “D023'b4, 
"6439 "d4, “2822 "b4, 'OBOO'b4); 
call await (fe bik '01'54); : 
end msltirit; 


ME AE AE AE AE AC AE AE DS ENE AE AE EK AK AS AE BE AC DE IE SE AEE EK SK I SE RE RK KE OE SS RE SK SIC XE E ER RRE AE REAL A E ENE ASOR E A K 


IENE OR K SE SR SRA AE AERA ATE AA NE EAS TE NC HE AE TS IS NCE HE TEAS CAE 2S AE IK OK OS AE AE 28 2 KAS OK OS IS 
A TRR TRE ET TE R. Haeger, Dec 1985 "Yon 
EEN aa a mn n m a em umm cmm mmm ES ME n o r dum ems em C MO NS RN E D RETI DRE a DN XE E 
wo wo de we we ale 


*** This is the PL/I-986 code for user process trxdetec. *** 
*** It simulates track detection by incrementing track ders 
SES position values every iteration. It  vreduces ehameod 
xxx data DRA ak AE 
Be BS AS SH AS AE XE ILR E RA IR KONE E RARA REE EE ANA RE EFR SE XE HERE KEE HE AE IK ARE RRA AER IA A NR RE 
III RP LEESE RE RAE R ake He EE E IE PE DID ILI IT I EPI IIo I ITI II ITI 


X 


3 
x 
x 


trxdetect: procedure | 


¿replace 
infinity ty 327077 
one by “BLL1 Da, 
talen by 549; 


include ‘“sysdef.vli’$ 
include “share.dcl‘; 


/* used shared data: 
1 track(0:49) based(tr ptr), 
2 7 fired bdin 19). 
2 y fixed Dim os 
2 z fixed bin (15), 2 
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ends 


end 


DECLARE 


i fixed bin (15), 

MOOD, ta mo) bit (15). 

IM E Lied Or, 
2 x fixed bin (1 
2 y fixed bin (1 
2 2 fixed bin (1 

/* main */ 

Zinclude “pointer.ass'; 


do i = @ to infinity; 


/* simulation of track input data */ 
locali track. ritli; 
locale track. y¥-1+10; 
local track.z=i+1; 


/* put track in shared memory */ 
track(nod(i,talen)) = local track; 
call advance (TRACK_IN); 
tq ub = read(TRACK IN); 


/* display track values */ 
put skip(2) edit (“Track “,binaryíta_ub), 
ane , lOcaueurack.x. 
Ven. boealstrack . 7, 
2: Jocal*track.z, 
^ put in queue slot “,mod(i,talen)) 
(4(a,f(5)))5 
tq lb = read (TRACK OUT); 


7 


P d 


/* report status */ 
put skip(2) edit('Last consumed track ',binary(ta 1b), 
in slot: “,mod(birary(ta 1b)-1,talen)) 
Coa Re oS 


/* check if slot available for next iteration */ 
if ((binary(ta ub)-binary(ta 1b)) >= tolen ) tren 
do, 

k = add2bit16(ta 1b,one); 
/* report status */ 
out skip(2) edit ( Waitinmewtor slot: ^', 
mod(tinary(k)-1,talen), 
^ to be consumed “) (a,f(3),a); 
call await (TRACK OUT, k); 
end; 
/* do FOREVER */ 


trkdetect; 
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x xc AK E SK o oc o ARS E AA ÍA a ole xi oi ox ole oe otc ote atc oy o xe oec ok oe x otkc otc oc ott ot E E A RS xx 
EE NE BK IK NE a e oit otto oj x ot NE RE NE oft ox ole og oic ol xi ote o otc atc le ade de je ot oi e of ole olt ole 2j o oj otc otc oe tc auc ote ate ole ac otc te sic oco 


ME AK aE MSLTRAIN.PLI file R. Haeger, Dec 1985 AO 


**x*x This is the PL/1-8€ code for user process msltrain. *** 
*** It simulates missile launcher training by . > 
*** displaying launcher assiegnment and direction values. ** 
*** Tt consumes shared data MISSILE ORDER. xe 
otc Oi ake oe he ote ote fe ote a SHE SRE Ne ae Be oS af ake ot She ate ale afc ae a ale ad SIE ac aa h ae fe otc as ae ake ak ok a aie ake Be ake ale ake oe ale at ae ake aK 2 F 
CK KE Oe SIE IE OR KSIL EAE IE OK aE OKC aK OK aK ol e ad e al RE KC dd OK a a a ai KC aK RR al O d Xe 


ms trainee procedure ; 


%4replace 
IP Pris y DY 32767, 
one by “1001 “d4, 
moqlen by 505 


Yinclud®  sSysdeteoia 7 
include “share.dcl’; 
/* used shared data: 
1 missile order(@:49) based(mo ptr), 
2 launcher fixed bin (7), 
2 azimuth float binary, 
2 elevation float birary, d 


DECLARE 


i fixed bin (15), 
k bit (16) static init (2209 TAI: 
/“ end DECLARATIONS */ 


A E 
¿1uciude 'pointer.ass’; 


do 1 = @ to infinity; 
k = add2bit16(k, one); 
/* report status */ 
put skip list(’msltrain waiting’); 
call await (MISSILE ORDER IN, k)3 


* consune and display missile order values */ 
put skip(2) edit(/launcher: ^, 
missile order'mod(i,moclen)).launcher, 
launch: “,binary(k), 
azimuth: , 
missile order(mod(i,moalen)).azimuth, 
elevation: í, 
missile order(mod(i,moalen)).elevation) 
(2(a,£(5)) 72 Cae (a 2 PEE 


$ 
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call advance (MISSILB ORDER OUT J's 
anid; /* do i a7 


end msltrain; 


Hee af eae a ed ee a asi o e e e ol a aK ORC a 1 e le a le ae II A PIIIIIIII III 
X CR oj o K d KE SK AK HE tc oe A RE A x ot xc xx ot A RS RA AA EIU RR FK 
menm C2USERS.INP file v qu 
A MEM E asque um m m ue Me 
eee This file is used to link user initialization, ok 
*** user process mslorder, user process trkrprt, and pos 
"F* gatemodule into C2USZRS.CMD, the executable file ager 
=** multiplexing the two user processes on one SBC. anù 
H E I R H an E ote te oie ote ste o H aft atate sie oie xe t ae RO 


c2Zusers = 

c2uinit [Ícode[ab([4391].datafab[820],mf[?] .aa [82] l .maplallil., 
mslorcer, 

tremprt, 

gatemod 


ANN A MORE E AE EE XE IK REA AER AE REE RR RA RANA A A A A RE AE ARE BE EO NE EE NE A EX 
WK NS AK HK AE RENE A AE RA AL AE EN AIRE XE NE AC DE IE AC AE A REE ACNE EE ERE AL ARE NE A AE R XR IE SE R X NE SR GE SE E NE EIR G 


E NEAR C2UINIT.PLI file AUR 
A aa ay ae ep a ay i Sa aa ee EUN x xac 
REX This is the initialization procedure for the "prse 
^** multiplexed user constellation. MER 


sj ze xe tese le t oe te se tele oe testet zt te t este tete sje ze te oe te zi te tee tes oie ae Cafe ae ae tete xo ze se tete t teo e e 


c2 users init: procedure options (main); 
include 'sysdef.pli^'; 


/* begin * 
* missile order * 
call create proc (“@3°t4, 'fc't4, 
^"Qa29'b4, '"BOCO'b4, 'C?C2O'p4, 
"0459052. 0890/54. '3832 54)4 


/* track report */ 
call create orot ( 24 b4, "fc^/b4, 
DE "3802'b4, 0393 ba. 
“0439 °D4, “0800 "b4, “2800 "b4); 
call await ('fe'b4, “91 b4); 
cales init; 


Be AE Ae SE AE SK S SK A NE SK I NE SK XEK IK A Ze IE HE IE HEAK AAE XK KC SE NS EXE Be EE EE OE NE NE d AK IK A SIC A E E A ate aie 
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IE AE AE HK HE HE RE EE E ENE ES EE ACNE NENE A NE NA CAE ER RE ERE AR RR IR OIE NE SIS OE NE OE OE NS OK OE SIS OE OK OE E 
AE HE HE IE HE AE DIE BIE ENS OK TK RE OE HE RE OE OE OK AE OH AS OK AE OIE SE OK DE OK OE AS RAE SE OES OK HE OSE OIE DIS OE NE IE TIE IE OK IIE OK AC ES OK AIS OK TE OE NE Sie OE 


oes REPORTER.INP file oe 
WX LI a n a a n e a e ee I 
xxx This file is used to linx trkrprt initialization, iba 
eR user 0TOCESS_ LEDET TT E x 
*** REPORTER.CMD, the executable file for user process "E ne 
*3* trkrprt in the non-multiplexed constellation wae 


HS AE HE HE HE RE HS HS HE IE 34S HAE BS AE HE AS AS AIS BS HES SE AE HE OS BIE AK SK ME TRIE RENE HE IE IE BE BS AE TENE EAE IS AE EO OK OE OS OS SE NE OK OK NE OE 


reporter= 

trkrinit [code[abd[439]],datafabd[800],m(@],ada[S2]}].mav[all]], 
CVE Pre, 

gatemod 


ERE NENE KOK E E LE HE M E A NE A x KOR AE IK IK AE RERE Se AE IK K SK FK IE OE E RE SE A EA 
NE RE BK NE Bye HC AE DK CDH NE RENE NE LE ERE IA 3} AC AK IK HK AC NE E E E AA AE NE ERA A A ARE EE ACA RA RENE AENA E EA 


ME AER TPKE INIT. Ott i ke A ANE 
AW ca ces ec A A E EE eae on 
*** This is the initialization procedure for user a 
*** process trkrort in the non-multiplexed constellation.**: 
BIS AE AE HS IE HS TNE ER CAS HE IE SIS HS NA NR E E NENE SES ARE REOR NENA OIE A A E EA NERAL AE NA 


trkrinit: procedure options (main); 


“include 'sysdef.pli'; 
/* begin */ 


call create oroc (24 0p4 "Tchi, 
“9871 "04, 'OR0D^b4, '0923'b4, 
^0Q439^b4. '?Bog'b4, “2800 04); 


Call await © fe DIA DE 
eni trkrin te 


Bye BK Hh HK HE AE Bh OE OK HE BE ASAE BS HE TE AK BIE NS OK FS RE HI AE NS HK IS GS OE OE IS SRE AE OE NE OE OK EE BE AS AE SE SE OE IES OE OK OS OS OE AK OE IE OE OK 


BS HE AE HE AE TE TS AE SCE BE STE BIC RE NE AE RE ATA AEAE 31S 2} aS AE AE NE ALTE AS LIK is RE AE AE AE ENE HE TE AC HE AC AL He BK CAE HE HE AE ENE ME SE RE K K 


oe on MSLORD.INP file NAA 
KIE eee ee a A œd 
eee This file is used to link mslorder initialization, C 
xxx user process mslorder, and gatemodule into ea 
"* MSLORD.CMD, the executable file for user process "anm 
*** mslorder in the non-multiplexed constellation. a hoe 


e 
ERRE AA AE E A ERE NR AI E RE HIS IK SIS IE HS TIE IEE OE OIE OE EK BS TIE RENE TE RRE NE ERA ER E A AA E E E EA M RL A 


mslord = 

msloinit [code[ab[439]1,3ata[ab [890],m(2] ,aa [22]] ,mavo(a111]] , 
mslorder, 

gatemod 


xe x xi ste ote o ote sje zt oj tonc ate ds ott te ote otc oj tc E e te ote oj ote a a ale ote xc ot oe otc tc o otc IK OIC SE AE SIE ak ac Di a SIK OE i OE OK BE 
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AER SC RE AK AE E RE KE IK RE SIE KEIR RM A IC Ste f v ol o ot KR XA AK RTE RRA AR Y A ZE TA XA FR A ZE 
3€ XC RK HE RE RE IE ENE AE ACA HC NE NE AK AE MEE CAKE KE xj xt x ot HE RA HE ENE HE HE XEK He XEKE XA E KE XE KE KE XE DE IE XE XA RE RE XE A E 


innt MESEOINITSPLI fi? "ex 
ecu nuan Tn NER. ee i ca een ees ee XX x 
*** This file is the irtialization procedure for user Wo HK 


ale ale J 


*** process mslorder in the non-nultiplexed constellation*** 
BE DEO HE E ERE AYE CHE IE OK HE teo ae e xj SE A PE KEAK XE RE KC KC IE SAE A AE RHE NE DA KE DAA E SAR AK OK aC SIE KE XR XA E KE XE FR SK 


msloinit: procedure ovotions (main)' 


minclude "sysdef.pli ; 


/* bezin */ 


call create oroc ('/03'b4, 'fc'b4, 
^QOb3'b4, “SACL DA, “023 DA, 
“@439°bd4, “2220 "b4, '0820^*04); 


call await ('?e'/b4, “01 D4); 
end msloinit; 


dee A AS AE e ake EDIE ake aja is oie He S al ddd e le ale ole e ade ie a dh ed dde ded d e dd d ae OE Be 2K BE de akh ote 
HE NEE HE RE DIC IE NE RE NE Be DINE NE NE NE NE AK NE HE KEKE IENE I E AE BE AE E a e AE OE de a le e a e al OO OC OE CE AE RE I RE AE NE KE NE AE OE KE 


PW TRERPRT.PLI file R. Haeger, Dec 1985 se 
D un x ae MEE p cur UU CAEN KIL 
isise rL B6 code for user process trkrprt. Ane 


*** It simulates computation of delta values for tracks *** 
xx% by comparing two consecutive positions of a track. ind 
*** Tt consumes shared data TRACK and produces shared S 

Poe data DELTA. ne HE HK 


Tp 
FE ESIE O SE SE SE AE SIE SIL AE SOK SER HE OS OIE AR FE AS HE SANE NS OS EAE ASAE AE CAE ACNE BEE AS NE OS ES OS BK IS OAS AE IS NS EOS DR IR NS DS OE OI iS E 


freer prt ¢ procedure ; 
Zreplace 
infinity Ewe (oO? . 
one by “@€@1°b4, 
dalen by 20, 
talen by 505 


include “sysdef.pli'; 
include “suare.acl ; 


/* used shared data: 
1 track(2:49) based(tr ptr), 
2 1 fized bin (15), 
2 y fixed bin (15), 
2 z fied bdin (15), 
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1 delta(0:19) based(de otr), 
2 dx fixed bin (7), 
2 ày fired bin (7), 
Cul? ctixed binum Lo 


DECLARE 


i fixed bdin (1 ay} 


(km,k) bit (16) Static init ('/2090^b4), 


(da ub daqgib) bit Mc 


L Local track, 
2 x fired bin (15), 
ES b 1 c 
‘Waiting for “sit , 
mod(binary/k)-1,dqlen), 
^ to be con 2 dy fixed bin (7), 
2 a2 fired bin 12) 


/* end DECLARATIONS */ 


/* main */ 
include “pointer.ass'; 


do i = Ø to infinity; 
/* report status */ 


put Skip(2) list (“proc trkrprt, iteration: ^, 
i,’ waiting Zr 


km = add2bit16(xm, one); 
call await (TRACK IN, km); 
/* report status LT 
put list(” going “); 


/* read shared data item and compute delta values */ 


local delta.dx-(track(mod(i,talen)).x)-(10ocal track.x); 
local delta.dysítrack(mod(i,talen)).y)-(1ocal track.y); 
local delta.dz- track(modi(t.tqlen)De c ocal track- z); 


/* display Mer delta values */ 
put SA SN Local VA 
* b , local delta.dy, 

ZAS A dz); 


/* save track data for next iteration */ 
local trackstrack(mod(i,talen)); 


/* put delta in shared memory */ 
ielta(mod(i,dalen))-10cal delta; 


194 


call advance(DELTA_ IN); 


/* report status */ 
put Tist(' wont ^); 


dqa_ub=read(DELTA IN); 
dq_lb=read(DFLTA OUT); 


/* check if slot available for next iteration */ 
if ((binary(da_ub)-binary(dqa_1b)) >= dalen) then 
do; 

k-add2biti6(da 1lb,one); 
/* if queue is full, report status */ 
put skip(2) edit(’Delta aueue full, ^', 
"wai tene ror slot ', 
mod (binary(k) -1, dalen), 
CORDE consumed’ ) 
(a,a,f(3),a); 


call await(DELTA OUT,k); 
endi 
eds /* do 1 */ 


end trkrvprt; 


AS AE IE BE AR OK EE AE TK RE SAK NEE RENE ERE AK AS NK AE RE OI IK AE RAK SHE FE NS AE EE OK A AE AA AR SE 
HK AK HE WK IK HE HE ENE OE BIE AE IK BE OIC OK IC OIE SIS HK HE HE AE BK DEE SIS OK DK IE HK HE RRE AE IS BIE AK ONE OYE RE AK OK OK AK OIE OK DK SIS BIS NE XE 


acr MSLOPDENR PLI file R. Haezer, Dec 1985 NEUE 
O a ae m cic cum mm cm arii EE E as RN m Siete 


3 
x 


po This is the PL/1-26 code for user process mslorder. 
*** LIL simulates computation of missile launcher 

*** direction and launcher assignment. 

*** Tt consumes shared data TRACK and DELTA, and 

xx% produces shared data MISSILE na: 


3 ox 
3 3€ dt 3t 30 3t 
Hose 4 


e 3 


L a 


EERE R RE R I AE AIE AEAEE I AE IE RESE I E AC AE E KE ERIE E E E AE he zh xt AEK eek Kk Ak e 
mslorder: procedure ; 
¿replace 

infinity D¥eoarcCrT’, 

one by “0081 bt, 

talen Dy 5, 

dalen by 28i 

moalen by 50; 


^ 


include 'sysdef.pli 
~include ^/share.dcl^; 
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/* used shared data: 
1 track(@:49) basedí(tr_ptr), 
2x fixed bin (15), 
2 y fixed bin (i532 
2 2 fixed bin (lo 


1 delta(0:19) pasen CEEE 
o dx fired cin Z), 
'2 dy fixed bin (s E 
2 àz fixed bdin (7), 
1 missile order(@:49) based(mo ptr), 
2 launcher fixed bin (7), 
2 azimuth float binary, 
2 elevation float binary, K 


DECLARE 


i fixed “bin (FPE 

km bit (16) static init (“0202 "b4), 
k3 bit (16) static init (“9009 "b4), 
moa ub, moa lo) piti TEIS 


L local_track, 
2 x fixed bin (15) , 
ey fixed. bin toe 
2 2 fixed bin (15) 


1 local delta, 
2 ax fixed din ae 
2 dy fixed bin (7), 
2 dz fixed dm 7), 


m ocal Tori oii 
2 launcher fixed bin (7), 
2 azimuth float binary, 
2 elevation float binary; 


/* end DECLARATIONS */ 
/* main */ 


Zinclude pormter sass, 
do i =ø to infinity; 


/* report sta 
is 


WS a 
put sxip(2) 1 ( il 


proc mslorier, iteration: : 
i; m wajtinge Wb 


kd-add2biti6(kd,one); 
call await(DELTA IN,kd ); 


196 


/* report status */ 
pum list (am comme ')| 
/* copy track values */ 
local track-track(mod(i,talen)); 
call advance(TRACK OUT); 
/* copy delta values */ 
local delta-delta(mod(i,dalen)); 
call advance(DELTA OUT); 
/* display track values */ 
put skip list Ir: local trok xr, y: ,lo0cal tración 
Ta: locali ttack.z); 
/* assign launcher */ 
local order.launcher=mod(i,4)+13 
/* simulate direction computation */ 
Tocal order .azimuth= 
atanðd(float(local Lrack-Y + local Melta.ay)/ 
float(local track.x + local delta.dx)); 
local order .elevation= 
atand(float(local track.z * local delta.dz)/ 
float(local track.x + local delta.dx)); 
/* put missile order in shared memory */ i 
missile orderímod(i,moalen))=1lo0cal_order; 
/* display missile order values */ 
putes pst. Le local orjer.'auxcher, 
a: .local orderpredzimu th, 
^ e:',local order.elevation); 
call advance(MISSILE ORDER IN); 


/* report status */ 
put list(' m done ^); 
mog_ ub = read(MISSILE ORDER IN); 
moq lb -» read (MISSILE CRDER OUT); 


/* check if slot available for next ireration */ 
if ((binary(ímoa ub)-binary(moa 1b))»5z2moalen ) then 
do; 

km - add2biti6(moa lb,one); 
/* report if queue is full */ 
put skipí(2) edit('Missile order queue full, 
wai tinai f orsslot 
mod(binaryíxm)-1,moalen), 
to be consumed”) 
Laud. fto) 
call await (MISSILE ORDER OUT, km); 


5 


4 


end; 
end; /* do i */ 
end mslorder; 


HE AK AE RE HE AE AC AE 2 IKE KE EAE AE DHE OK NE AE MK HE HC IKE AKC 2X 2C XE X6 2962 HK AE AKC NE IKE AE AE ie HK AK RO AE AK DHE IK IE AK E ACA AKC AE AE OK Nc OK ox 
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To switch 


Steps 


(1) 
Switch on 


clusters in 


APPENDIX F 
SYSTEM INITIALIZATION 


on and initialize the system, follow these 


and set up the hardware components of both 


accordance with the respective power on 


procedures described in the AEGIS lab up to the point where 


the system disks are in their drives and the reset button of 
the MULTIBUS frame was pushed. 


(2) 


Insert MCORTEX disks for cluster 1 and cluster 2 in 


their respective drives. 


(3) 


For cluster lL: 


At terminal 1 type in: capital 'U'. 
After prompt type in: 'gffd4:4' followed by RETURN. 


After prompt choose console 'l' and login disk 'B'. 


After prompt B» change to disk A. 


After prompt A> type in: 'ldcpm'. 


After prompt A> type in: 'ldboot'. 


After prompt A> change to disk B. 
After prompt B» terminal l is ready for MCORTEX. 


At terminal 2 type in: capital 'U'.. 


After prompt type in: 'ge000:400'. 


After prompt choose console '2' and login disk 'C'. 


After prompt C» change to disk B. 
After prompt B» terminal 2 is ready for MCORTEX. 


Àt terminal 3 type in: capital 'U'. 
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(4) 


After prompt type in: 'ge000:400'. 

After prompt choose console '3' and login disk 'D'. 
After prompt D» change to disk B. 

After prompt B> terminal 3 is ready for MCORTEX. 


For cluster 2: 

At terminal l type in: capital 'U'. 

After prompt type in: 'gf£fd4:0'. 

After prompt do the same as in cluster 1 after this 


step. 


Make sure cluster 1 is connected to the RTC* Ethernet. 
System is ready for MCORTEX. 


At cluster L: 

At terminal 1 type in: 'MCORTEX' followed by RETURN. 
System will ask for global memory to be loaded, type in: 
'Y' and hit RETURN. 


System will ask for filename. 


At terminal 2 type in: 'MCORTEX' followed by RETURN. 
System will ask for global memory to be loaded, hit 
RETURN. 


System will ask for filename. 
At terminal 3 do the same as at terminal 2. 


Cluster l is ready for initialization. 

At terminal 1 type in: 'C1PROC.CMD' and hit RETURN. 

The driver will prompt with length of longest queue, and 
signal that cluster l is initialized. 


Cluster l is ready for the application processes. 


Initialize cluster 2 the same way as cluster 1, but type 
in: 'C2PROC.CMD' instead of 'ClPROC.CMD'. 
After driver prompts, the system is ready for 


application processes. 
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Following, the initialization of the demonstration 


program's non-multiplexed constellation is described. 


At cluster 2: 
At terminal 2 type in: 'MSLORD.CMD'. 
User process MSLORDER will start executing. 


At terminal 3 type in: 'REPORTER.CMD'. 
User process TRKRPRT will start executing. 


At cluster L: 
At terminal 3 type in: 'MSLREACT.CMD'. 
User process MSLTRAIN will start executing. 


At terminal 2 type in: 'TRACKER.CMD'. 
User process TRKDETEC will start executing. 


The total system will run. 


Every terminal displays respective data on its screen. 
Terminals 1 in both clusters show message exchange 


activity 'transmitting' or 'receiving'. 


To stop any process, hit 'Control S' at the respective 


terminal. To restart the process hit 'Control S' again. 
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